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PREFACE 



This manual has two parts: PART I, Introduction to Using FORTRAN-10 
with SOS, and PART II, FORTRAN-10 Language Manual. 

Part I is a short guide to using the DECsystem-10 Operating System. 
It describes the minimum set of commands necessary to input, edit, and 
execute FORTRAN programs. It assumes that the reader has a 
rudimentary knowledge of or is presently learning FORTRAN programming. 
It is a guide to implementing FORTRAN on the DECsystem-10 . 

The complete set of Operating System commands is given in the 

DECsystem-10 Operating Systems Commands Manual (DEC-10-OSCMA-A-D) . 

The SOS text editor is described completely in the SOS User ' s Guide 
(DEC-10-USOSA-A-D) . 

Part II describes the FORTRAN language as implemented for the 
FORTRAN-10 Language Processing System (referred to as FORTRAN-10). 
The language manual (PART II) is intended for reference purposes only. 
The reader is expected to have some experience in writing FORTRAN 
programs and to be familiar with the standard FORTRAN language set and 
terminology as defined in the American National Standard FORTRAN, 
X3. 9-1966. Descriptions of FORTRAN-10 extensions and additions to the 
standard FORTRAN language set are printed with gray shading. 

Operating procedures and descriptions of the DECsystem-10 programming 
environment are included in the appendixes. 
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CHAPTER 1 
LOGGING-IN 



To begin programming on the DECsystem-10 Timesharing System, 
you need an account number and a password. You may also 
need to make a telephone connection to the computer; if so, 
you need the computer's telephone number. Write this 
information here: 

Telephone Number : 

(if needed) 



Account Number 
Password : 



NOTE 

Before logging-in, be sure to read Chapter 7 on KJOB 
(logging-out). If you do not log out, but merely 
disconnect your terminal, the DECsystem-10 
accounting system will not know you have finished 
and WILL CONTINUE TO CHARGE YOU FOR TERMINAL TIME. 



First, make sure that the terminal is turned on to LINE. If 
you are to make a telephone connection to the computer, turn 
on the acoustic coupler and then dial the telephone number 
to make the connection to the DECsystem-10. 

The computer now may print a few lines identifying itself 
and will print: 

PLEASE LOGIN Oft ATTACH 

followed by a line beginning with a period (.). This period 
signifies the computer's readiness to accept your LOGIN 
command. If the computer does not print a period, type 
CTRL/C ("C) . The may appear as an t on some terminals. 
The computer will respond with a period. 



NOTE 

To type CTRL/C, hold the Control (CTRL) key down 
while typing C. This causes the computer to print 
the characters "C on the terminal. In this book, 
the symbols "C will mean that you are to type 
CTRL/C. In order to signal the computer system 
that you wish to give it a command, you can type 
"C. This is your way of getting the computer's 
attention so that you can give it your next 
command . 

INTRO- 1-1 



LOGGING- IN 

MONITOR Monitor: In what follows we shall often call the computer 
system the monitor; this is the operating system or 
executive program that directs the execution of all the 
programs and performs the record-keeping duties for the 
computer . 

You may now log in by typing: 

LOGIN .LOGIN account number <CR> ("<CR>" means carriage 

return. ) 

Example: If your account number were 27,240 you would type 

♦LOGIN 27y240<CR> 



NOTE 

Me shall use the symbol <CR> to show where you are 
to press the RETURN key. This key may also be 
labelled CR or CAR RET and is often referred to as a 
"carriage return". To distinguish between 
characters you type and those the computer prints, 
uderlining will be used for the characters you, the 
user , type . 

The monitor will now respond with the lines: 

JOB job number system number TTY terminal line number 
PASSWORD: 

(The job number is assigned by the monitor.) 

PASSWORD The monitor is now asking for your password. You should 
respond by typing your password and pressing the RETURN key. 
Since many users prefer to keep their passwords secret, the 
password is not printed. If your password were the word 
TROLL, and if everything you typed were printed, the output 
would appear as: 

PASSWORD: TROLL 

But what actually appears is 

password: 

The monitor signals its acceptance of your account number 
and password by typing the time, date, and perhaps a 
message. Then it types a period (.) indicating that it is 
ready to accept your command. What you now have on the page 
will look something like this (remember that the underlined 
passages are those that you have typed) . 

Example : 



♦ LOGIN 27y24Q<CR> 

JOB 25 R'5725B SYS #40/2 TTY.1.06 

P A S S W R D : <CR> 

1242 1 8 -NOV -76 THUR 
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CHAPTER 2 
TYPING IN YOUR PROGRAM 



R SOS To type in your program, you will use an editing program 
called SOS. Call SOS by giving the monitor command: 

<R SOS<CR> 



SOS responds with: 

FILEt 

asking you for the name of your file. (The computer stores 
your program on a disk.) You must give the file a name by 
which you and the computer can refer to it - you may think 
of this name as the name of your program. This name must be 
from one to six letters or digits. Because the computer can 
handle several different computer languages, you must also 
declare that this file will be used to store a program 
written in FORTRAN language. This is done by extending the 
name of your file with the letters FOR. These letters will 
be separated from the filename (or program name) by a 
period. Some examples of filenames in which you may store 
programs written for FORTRAN are: 

ASPEN. FOR 

A3C123.FOR 

INSPIR.FOR 

Whenever you refer to your program, use its full name with 
extension . 

Now you should type in the name of your file/program. 

Example: (Here the name of the file or program is 
ASPEN. FOR.) 

* R SOS<CR> 

file; aspen >for<cr> 



SOS will now print: 

INPUT? ASPEN *F OR 
00:1.00 



and the carriage will move to the correct position (column 
1) for you to begin typing your program. Remember that in a 
FORTRAN program, columns 1 through 5 are reserved for the 



INTRO-2-1 



TYPIMG IN YOUR PROGRAM 

statement number, column 5 is the continuation field, and 
columns 7 through 72 are for the FORTRAN statement. The 
number 00100 that SOS has printed is not oart of your 
program, but is SOS's line number for the first statement of 
your program. If this first statement is not a numbered or 
comment statement, you must skip 6 spaces (to column 7) 
before beginning to type in the statement. When you have 
typed in the first line of your program, press the RETURN 
key, and SOS will print the next line number (in increments 
of 100) ; you may enter the next line of your program. 
Thus, when SOS prints a line number, you know that it is 
ready to accept a line of your program. (For a fast way of 
skipping the label field, see the section on TAB, page INTRO 
4-6.) 

TO STOP ENTERING LINES INTO YOUR PROGRAM (ESCAPE) 

ESCAPE When you wish to stop entering lines into your program, you 
should press the ESCape key (on some terminals labeled ESC, 
ALT, ALTMODE, or PREFIX). We shall refer to this key as 
ESCape. Pressing the ESCape key causes a $ to be printed on 
the terminal . 

Example: (In this example, the first statement is a comment 
statement: the character C is in column 1.) 



» R SOS < CR> 

file j aspen *f0r<cr> 

input: aspen* for 

1 c this is an example ,<cr> 

00200 TYPE :l.0<CR> 

00300 10 FORMAT < ' ASPEN IS A NICE PLACE TO SKI ! ' KCR> 

00400 END<CR> 

00500 * 
* 



SOS Note that we have two programs that are already stored in 
the computer - the system monitor program and SOS. As you 
know, the monitor indicates its readiness to accept your 
command by printing a period (.); SOS indicates its 
readiness to accept your command by printing an asterisk 
(*). When you press the ESCape key, SOS returns with an 
asterisk (*) showing that it is ready to accept a command. 

E ENDING OR STORING YOUR PROGRAM (E) 

It is very important, when you have finished writing your 

program, that you tell SOS you are done and that it should 

store your program until you are ready to use it again. You 

respond to SOS's request for a command by typing the End 
command (the letter E) and the RETURN key. 

Example : 

*e: <cr> 

i:: dskc: aspen, f or ::i 
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TYPING IN YOUR PROGRAM 

In this example, SOS tells us that the program ^SPEN.FOR has 
been stored on the disk (named DSKC:). Then SOS turns 
control over to the monitor, which signals its readiness to 
accept your next command by printing a period. 

NOTE 

The SOS END command, E, is essential. If you don't 
tell SOS to store your file before you return to the 
monitor, your program will be lost. 

RUBOUT THE RUBOUT OR D ELETE KEY ( CORRECTING TYPING MI STAKES) 

If you make a mistake while typing a line, the RUBOUT 
(DELETE or DEL) key allows you to correct your mistake 
without having to retype the entire line. Press the RUBOUT 
key once for each character you wish deleted. This causes 
the deleted characters to be printed with a backslash (\) 
before and after them. Then, type the correct characters. 

Example : 

F I L E : ASPN\N\EN*FQR<CR> 

In this example, the character 'N' has been rubbed out. 
Example : 

00300 10 FORMAT <' APE\EP\SPEN IS A NICE PLACE TO SKI ! ' ) <CR> 



In this example, the RUBOUT key was pressed twice to erase 
the unwanted characters PE. Note also that the deleted 
characters are printed in reverse order. 

Think of the RUBOUT key as a "backspace plus erasure" key! 
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CHAPTER 3 
RUNNING YOUR PROGRAM 



THE EXECUTE COMMAND 

EXECUT E 

EX To execute or cause the computer to follow the instructions 
given by the program, command the monitor to: 



.EXECUTE f ilename.extension<CR> 



Example 



, EXECUTE ASPE N*FOR< CR> 

FORTRAN: ASPEN 

MAIN* 

LINK* LOADING 

i::lnkxct A S PEN execution:] 

ASPEN IS A NICE PLACE TO SKI! 

END OF EXECUTION 

CPU TIME* 0*05 ELAPSED TIME* 0*15 

EXIT 



EXECUTE may be abbreviated to EX 



NOTE 

You may have been puzzled at the occurrence of lines 
written by the monitor before the actual execution 
in the above example. They appear because before 
your FORTRAN source program can be executed, it must 
be translated or compiled into a machine language 
program (the object program) that the computer can 
execute. This is done during the step labeled 
FORTRAN: filename. This object program, like the 
original source program, is stored in a disk file. 
Before the program can be executed, a copy of the 
compiled or object program must be placed (loaded) 
into the working memory of the computer - this copy 
is often called a core image of the object program. 
This is accomplished during the LINK: LOADING step. 
Finally, the execution step is performed. 
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RUNNING YOUR PROGRAM 



Few programs will complete execution the very first time you 
try to execute them. Do not be discouraged 1 Chances are 
that the compiler will find at least one mistake in your 
program. To help you find your mistake(s) , it will type out 
a message to you. For example, suppose that you have made 
the following mistake in the program on page INTRO 2-2: in 
the FORMAT statement in line 300 the closing quote has been 
omitted. The program would look like this: 



00100 C THIS IS AN EXAMPLE, 

00200 TYPE 10 

00300 10 FORMAT <' ASPEN IS A NICE PLACE TO SKI!) 

00400 END 



An attempt to EXECUTE it will cause the following 



*EX ASPEN,FOR<CR> 



FORTRAN? ASPEN 

00300 10 FORMAT <' ASPEN IS A NICE PLACE TO SKI!) 

'iTTNGQL LINE 1 00300 NO CLOSING QUOTE IN LITERAL 

^FTNFWE LINE : 00 300 FOUND END OF STATEMENT WHEN EXPECTING A 

.1 ) u 



INDEFINED LABELS 

1 

TTNFTL MAIN, 3 FATAL ERRORS AND NO WARNINGS 

.INK? LOADING 
LNKNSA NO START ADDRESS .".l 



If the compiler has found errors in your program that make 
execution impossible, you will again have to call on SOS to 
help you correct your program. Do this by using the R SOS 
command discussed in Chapter 4. 



NOTE 

The compiler will only print error messages for 
cases where the program is not clearly understood. 
It is possible to have a program that consists of 
valid FORTRAN statements, but gives the wrong 
answers. For example, suppose you intended to enter 

TAX = RATE*AMOUNT 

out by mistake typed 

TAX = RATE+AMOUNT 
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CTRL/C CC) (GETTING THE MONITOR'S ATTENTION) 

CTRL/C informs the monitor that you wish to give it a 
command. The monitor interrupts whatever the computer is 
doing and prints a period to indicate that it is ready to 
accept your command. To type CTRL/C, hold the Control 
(CTRL) key down while typing C. 



Stopping Your Program's Execution 

CTRL/C interrupts a program during execution, returning 
control to the monitor. Sometimes it is necessary to type 
CTRL/C twice to interrupt a program. 

Example : 



EXECUTE ASPEN *FOR<CR 



FORTRAN: 



ASPEN 



Deleting a Command 

You may also use CTRL/C to delete the line you are presently 
typing and return control to the monitor. 

Example : 



.EXECUTE ASPEN* FOR "C 



Typing "CONT" in answer to a monitor prompt will return you 
to your previous activity IF AND ONLY IF you have not: 



tampered with the core image, OR 

caused the FORTRAN compiler image in core 

overwritten . 



to be 



If, for instance, you interrupt the executing program to 
send a message to someone on another terminal , you can 
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return. If you, say, request a directory activity, then the 
FORTRAN compiler is overwritten and you cannot return to 
your previous activity. When in doubt, wait until the 
execution is complete, unless you want to restart the 
execution anyway. 



CTRL/U (~U) (CHANGING A LINE) 

CTRL/U deletes the entire line you are typing and moves the 
carriage to the beginning of the next line. You may then 
retype the line. Note that CTRL/U only deletes that part of 
the line you have typed and not the part the computer 
prints, i.e., in the following example the line number is 
not deleted. CTRL/U is typed by holding the Control (CTRL) 
key down while typing U. 

Example : 



1 B 40 SRC-PI ■■■■■■ SRT (DISC) "U 

40 SROGT ■■■■■■■■ SORT (DISCXCR) 

0.1900 



In this example, CTRL/U deletes your input line, which you 
then reenter. CTRL/U does not delete the line number, 1300, 
printed by SOS. 

If you wish to delete the line entirely, follow CTRL/U with 
the RETURN key. 
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CHAPTER 4 
CHANGING YOUR PROGRAM 

T HE R SOS COMMAND (CORRECTING MISTAKES IN YOUR PR OG R AM) 

R SOS To correct a mistake in a program, you must return to SOS. 
As we saw on page INTRO 2-1, we turn control over to SOS by 
commanding the monitor: 

, R SOS<CR> 

SOS responds with: 

F I L E J QUAIUF"QR<CR> 

and we type the filename and extension, in this case 
QUAD. FOR. But now SOS recognizes that this program already 
exists and correctly assumes that, instead of inputting a 
file, you wish to edit it. SOS thus types: 

EDIT J BUAILFOR 

The asterisk (*) indicates that SOS is at your command. The 
remainder of this section lists SOS commands that are 
essential for typing and editing simple FORTRAN programs. 
Use the ESCape to terminate these commands. 

SOS COMMANDS 



I I - Inserting Lines Into Your Program 

I N S E R T To Insert lines into your program beginning with line 2700, 
for instance, you give SOS the command: 

*1'2700<CR> 



SOS types out each line number, and you respond by inserting 
the line into the program. When you press the RETURN key 
after typing each line, SOS will type the next line number. 
(This is called "Insert Mode".) 
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Example : 

*:i:27oo<cr> 



02700 IF (DISC) 20 y 3 y 40<CR> 

2 8 40 R T 1 ■■■■- ~< - B -f S Q R T ( D I S C ) ) / ( 2 * A ) < C R > 

2 9 



Terminate the Insert command by typing ESCape 
( ALTMODE/PREFIX) ; this causes a $ to be printed on the 
terminal . 

Example : 

;k :i:40qo<cr> 

04000 20 WRITE! (5> 70)<CR> 

04:1.00 $ 



Note that in the above examples, SOS has numbered the lines 
in increments of 100. The reason for providing this 
increment is to allow you room to maneuver - suppose you 
have accidentally omitted lines that must now be Inserted, 
or suppose you now find it necessary to changes your 
original program. If you have left out 2 lines that should 
have gone between lines 3200 and 3300, you may Insert these 
lines by changing the increment size, say, to 20, using the 
command : 

#132:1.0 :>20<CR> 



This allows you to Insert lines 3210, 3230, 3250, 3270, and 
3290 into your program. The size of the increment is of no 
importance as long as it is small enough to accommodate all 
additional lines. Each time you change the increment size, 
the new size is kept until you change it. 

Example : 



* :i:32:i.Q y 20<CR> 

03210 UIRITE C5v 50) RQOT ly RQ0T 2<CR> 

3 2 3 50 FORMAT < ' ROOTS " ARE " , ' F 1 » 2 , ' AND ' r F 1 0.2) < C R > 

03250 _$ 



If you try to insert a line whose line number is greater 
than or equal to that of the next existing line, SOS will: 

use a different line number, or 
ignore the command entirely 
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D D - Deleting Li nes From Your Program 

DELET E To delete line 500 from your program, type 



*DSOO<CR> 



Example 



* I.1S00<CR> 

:i. I... I M E S < 5 / 1 ) D E I... E T E .0 

* 



If you wish to delete lines 1400 through 1600 from your 
program, use: 



*:D:I.400U600<CR> 



Example 



*D 1400il600<CR> 
3 LINES <01400/ 
* 



I 1600) DEL LIED 



R R - Replacing L ines in Your Program 

REPLACE The Replace command is a combination of a Delete command 
followed by an Insert command. To instruct SOS to delete 
line 1700 and to begin inserting lines at line 1700, use the 
Replace command: 

#R1700<CR> 



This is equivalent to the 
command 11700. 

Example : 



command D1700 followed by the 



.* R:l.70Q<CR> 
0:1.700 60 



DRMAT 



ROOT 



:l. I... I N E S < 1 700/ 1 ) D E I... E T E D 



To replace lines 500 through 700 use 



*RS00:700<CR> 



F10.2KCR> 



This is equivalent to D500:700 commanding SOS to delete 
lines 500 through 700, followed by the command 1500 
instructing 305 to begin inserting lines at 500. 
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Example : 

* RS00?700<CR> 

OOSOO 80 l ;: R MAT < "' G 1 'J E C E F F I C I E N T S ' ) < C R > 

00600 READ < ^ y :I.O) Ay By C<CR> 

00700 10 FORMAT <F:I.0*2XCR> 

3 i... i n e s < o o s o o / :i. : o o 7 o o ) d e i... f r t::: d 



If you also wish to change the increment size to 10, use the 
Replace command: 



*KM000J llOOy 10<CR> 



This is equivalent to the command D1000:1100 followed by the 
command 11000,10. 

Example : 



* R:iooon.:toOy :i.o<cr> 

1 40 SRGOT ==== SORT ( DISC )<CR> 

:l. :l. DENGM === 2*A<CR> 

01020 R00T:I. ••=== <-B -f SRGOT) / DEN0M<CR> 

1 3 R GGT2 === <--B -- SRGOT) / DENGM <CR> 

0:1.040 1 

2 i... :i: n e s ( o :i. o o o / :i. i o :i. :i. o o > d e i... e t e d 
* 



As with the Insert command, to terminate the Replace 
command, use the ESCape as in the above example. 



P P - Printing Lines of Your Program on the Terminal 
PRINT If you wish to print line 1300 of your program, type 



*P.!.S00<CR> 



Example 



* P:l.80Q<CR> 

01800 40 SRGOT == SORT (DISC) 

# 



To print lines 2700 through 3000 of your program, use 
*P2700?3000<CR> 
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Example 



>KI : , 27Q0;5Q00<CR> 

02700 30 ROOT ™ --B / <2*A) 

02800 WRITE ( 5 r 60) ROOT 

2 900 6 F R M A T < ' R T I S ' t F 1 0.2) 

03000 GO TO 100 

* 



N N - Changing the Line Numbers 

NUMBER The Number command instructs SOS to renumber your orogram 

beginning at line 100 in increments of 100. SOS docs not 

print anything on the terminal. If you wish to see the 
renumbered program, you must use the Print command. 

Example : 



* N<CR> 
* 



- E - End (Ends Editing a nd Stores the Program) 

END When you have completed editing your program, inform SOS 
that it should now store your program on the disk by typing 
E (end). If you do not instruct SOS to store your program, 
the editing you have just completed will be lost. 

Example : 

* e::<cr> 

i: D S K C : Q U A D ♦ F R C 2 7 y 2 4 1 1 



This indicates that the program named QUAD. FOR has been 
stored on DSKC:. The End command turns control over to the 
monitor, which prints a period to indicate its readiness to 
accept your next command. 

EQ EQ - Returning to the Monitor Without Storing Your Program 

QUIT If you decide that the current editing session is worthless, 
you may return to the monitor without storing your program 
by using the Quit command. 
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CHANGING YOUR PROGRAM 



Example : 

#EO<CR> 



This restores the original copy of the program as it was 
when you last typed R SOS. If the program is a new one, it 
is deleted since an original program did not exist. 



A FEW SOS CONVENTIONS 

1. A range of lines is indicated by a colon between the 
first and last line numbers of the range, i.e., 500:700. 

2. A period represents the current line. Thus, D. means 
delete the current line. 

Example : 



7 8 F R M A T CO G I V E C E E E I C I E N T S ' ) 

* D*<CR> 

:!. LINES < 00700/ 1 ) DELETED 

* 



In the above example the current line is line 700 and it 
is deleted. 

An asterisk is used to represent the last line of the 
file. Thus, to instruct SOS to print out your entire 
file use: 

#l-'0:#<CR> 



TAB TAB (CTRL/I) 



The TAB or Horizontal Tab (sometimes labeled HT or-»J) is 
handy when you are entering lines into your program. The 
TAB, similar to that on a typewriter, is set at 8-character 
intervals. It moves the carriage to the next column that is 
a multiple of 3; no characters are output on the terminal. 
As you know, a FORTRAN statement must be located within 
columns 7 through 72, although it may appear at any point 
within this range. Using the TAB to skip over all or part 
of the label field will bring the carriage to column 8, 
enabling you to begin your FORTRAN statement in that column. 
If your terminal does not have a key labeled TAB, use CTRL/I 
instead. To type CTRL/I, hold down the Control (CTRL) key 
while typing I . 



CORREC T ING MI STA R E S 

To correct one or more characters use the RUBOUT key (see 
page INTRO 2-3) . 

To change an entire line use CTRL/U (see page INTRO 3-4) . 
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Example 



*: 11:1.5 00 '"IKCR> 

:i:2 0oo<cr> " 

2000 



In the above example, CTRL/U (~U) allows you to change the 
command "Delete line 1500" to an insert command. 

Example : 

,R S0S<CR> 



FILE * ZELDA *FQR<CR> 

INPUT J ZELDA* FOR 

1 C THIS PROGRAM DOES NOTHING *<CR> 

00200 TYPE 10<CR> 

00300 10 FORMAT ( / IT ' * S WORKING ! ' ><CR> 

00400 TYE\E\PE ~ 20<CR> 

00500 * 

* P400<C R> 

00400 TYPE 20 

* .I500<CR> 

00500 20 F R M A T < " W H A T I S Y U R NAM E ? ; KCR> 

00600 ACEPT 30 y YORNAM n U 



AC CEP 


I' 30 » YORMAM<CR> 


30 


FORMAT (A5XCR> 


TYPE 40 , YORNAM<CR> 



00700 
00800 

9 40 FORMAT < ' / y 'Hit ' r A5v ' DO Y OU EA N T£ K C R > 

01000 $ 
* R900<CR> 

00900 40 F R M A T ( ' H It' > A 5 , ' , D Y U ' X C R > 

1 TYPE 50<C~R> 

:l. 1 50 FORMAT ( ' hi ANT TO BE FR1EN D S?/ K CR> 

01200 END<CR> 

01300 $ 

1 I... I N E S (00900 / 1 ) D E L E T E D 
* R900M1Q0<CR> 

9 40 FORMAT ('PHI? 'i A5y ' , WANT TO RE FRIENDS ? ' ) < C R > 

01000 * " " " 

3 L I N E S (009 / 1 * 1 1 ) D E I... E T E D 

*N_<CR> 

* PO:*<CR> 

00100 C THIS PROGRAM DOES NOTHING* 

TYPE 10 

F R MAT ( ' I T ' ' S U R K I N G ! ' ) 

TYPE 20 

FORMAT (' WHAT IS YOUR NAME?') 

ACCEPT 30 f YORNAM 

FORMAT (A5) 

TYPE 40? YORNAM 

F R M A T ( ' H I y ' r A 5 , ' t WAN T T B E ! :: ' R I E N D S ? ' ) 

END 



i::dskc* zelda*for::i 



00200 




00300 


.10 


00400 




00500 


20 


00600 




00700 


30 


00 BOO 




00900 


40 


01000 




*E<CR> 
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CHANGING YOUR PROGRAM 



Let us look at the above example in detail. 



SOS<CR> 



Commands the monitor to turn control over to the editor 
program SOS. 

F 1 1... E t ZELHA*rOR<CR> 

SOS requests the name of the file you wish to edit. You 
respond with the name of your file or program: ZELDA.FOR. 



INPUT J ZELDA J :: 'OR 

00:1.00 C THIS PROGRAM DOES NOTHING *<CR> 



When SOS fails to find a file by this name, it concludes 
that you intend to create a new file. SOS then prints the 
name of the file and the first line number. Now you are 
ready to enter the first line of the program. 



00200 TYPE :I.0<CR > 

Each time you finish typing a line and press the RETURN key, 
SOS prints out the next line number so that you may input 
that line. In typing line 200, the first character actually 
typed was a TAB (CTRL/I) , which caused the label field to be 
skipped over; this avoids the necessity of counting spaces 
so that our FORTRAN statement would begin in the proper 
column. TAB is a non-printing character. 



00300 10 F R MAT < ' I T ' ' S W R K I N G ! ' )< C R > 

This statement is labeled. *\fter typing the FORTRAN 
statement label (10) , you type the non-printing character 
TAB (CTRL/I) to skip over the remainder of the label field. 
Remember that the first character of a printing FORMAT 
statement must be the carriage control (here a blank, which 
means single space output) . Notice that because apostrophes 
are used to enclose literal fields, they are not allowable 
characters within a literal field but must instead be 
represented by two successive apostrophes. In other words, 
although line 300 appears in the program with two successive 
aoostrophes (IT''S), in the execution it causes the word 
IT'S to be printed (see the EXECUTION which follows). 



00400 TYE\E\PE 20<CR> 

Again, a non-printing TAB is used here to skip over ths 
label field. The RUBOUT key erases the E. 



00500 * 

The ESCape key terminates the input of lines into the 
program . 



*P400<CR> 
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SOS is now ready for a new command. You ask it to print 
line 400. 



00400 TYPE 20 

SOS prints line 400. 

* :£500<CR> 

Your next step is to insert lines into your program 
beginning with line 500. 

00500 20 l : " R M A T < ' M H A T I S Y U R N A M E ? y )< C R > 

You type line 500 into your program. 

00600 ACEPT 30 y Y OR NAM "U 

ACCEPT 30 t Y 0RNAM<CR> 

After typing in line 600 but before pressing the RETURN key, 
you pause and notice that you have misspelled ACCEPT. 
CTRL/U ("U) deletes the line, which you then retype 
beginning with the non-printing TAB. 

00700 30 FORMAT <ASKCR> 

00800 TYPE 40 > Y0RNAM<CR> 

00900 40 FQRMA~T ( / / > 'HI i ' ?A5> ' DO Y OU EANT' )<CR> 

01000 * 

You enter lines 700 through 900 into ypur program and 
terminate the insert. The carriage control '0' in the 
FORMAT statement causes the output to be double spaced. 

* R900<CR> 

At this point, you decide to replace line 900. The R900 
command causes it to be deleted and initiates an Insert 
command beginning with line 900. 

00900 40 FORMA T ('OHI?' , A5> ' »DQ YOU ' )<CR> 

1 TYPE !50<CR> 

1 00 SO FORM AT < ' UIANT T 0_ BJL F RIENDS'.^ )<CR> 

:i. 2 o o eni:kcr> 

0.1.300 % 

1 I... I N E S (00900/ 1 ) D E I... E T E B 

vVhen you use the ESCape key to terminate the insert command 
(initiated by the replace command) , SOS informs you that one 
line (line 900) has been deleted. 

*R900J :l.J.00<CR> 
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You decide to replace lines 900 through 1100. 

00900 40 FORMAT COHIy'y hZi ' t WANT TO BE FRIENDS? ' )<CR> 

0:1.000 % 

3 I... I N EL" S (00? / :l. i :l. :l. o ) d E I... e: t e d 

Line 900 is replaced and the command is terminated. SOS 
confirms that three lines (900 through 1100) have been 
deleted . 

* N<CR> 

SOS is now asked to renumber the lines beginning with 100 
and in steps of 100. 

*P 0t*<CR> 
You instruct SOS to print out your entire program. 

*E<CR> 



To conclude the editing session, instruct SOS to store your 
program on the disk. 



i::dskcszei...da *for::i 



Your program has been stored on DSKC:. The monitor is now 
in control . 



The EXECUTION of the above program 

♦ e::x zelda»for<cr> 
fortran? zei...da 

MAIN, 

LINK? LOADING 

Q..NKXCT ZELDA EXECUTIONS 

IT'S WORKING! 

WHAT IS YOUR NAME? 

HAL<CR> 



Hit HAL y WANT TO BE FRIENDS? 

END OF EXECUTION 

CPU TIME X 0*10 ELAPSED TIME J 10.20 

EXIT 
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CHAPTER 5 
FORTRAN-10 INPUT AND OUTPUT OF DATA 



Although FORTRAN-10 is essentially the same as standard 
FORTRAN, a few minor differences do arise in statements that 
involve the input and output of data. 

READ STA T EMENT 

READ The statement 

READ (u,f)list 

where u=device unit number and 

f=FORMAT statement number 

reads data from the device with unit number u (refer to the 
section on Device Unit Numbers, below) according to the 
specifications given by FORMAT statement f. 



Example : 



00800 READ <5» 35) 1 GRADE 

00900 35 FORMAT <I3) 



W RITE STATEMENT 
WRIT E This has the form 

WRITE (u,f) list 
where u=device unit number and 

f=F0RMAT statement number 
Example : 

o i ooo w r :i: r e a, 3 > < s t u d n t < .1 ) * .1: ■■■■= 1 » & ) » :i: g p a d i 

01100 30 FORMAT <8A5« 13) 



NOTE 

The ERR option of the OPEN and CLOSE statements i: 
also applicable to the READ and WRITE statements 
Refer to Chapter 12 
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DEVICE UNIT NUMBERS 

In READ and WRITE statements, we must specify to which 
device (Disk, Line Printer, Terminal, etc.) we are 
referring. For the DECsystem-10 , the device unit numbers, 
u, are uniform - they are the same on all DECsystem-lOs . 
The most commonly used are: 

Device Device Unit Number, u 

Disk 01 

Card Reader 02 

Line Printer 03 

Terminal 05 

(For a complete list see FORTRAN-10 Language Manual, Table 
10-1.) 

Tnus, WRITE (5,7) causes output to be printed on your 
terminal; READ (1,25) causes data to be read from the disk. 

ACCEPT STATEMENT 

ACCEPT To input data from the terminal you may use 

ACCEPT f,list 

where f=the FORMAT statement number. 

Example : 

00500 ACCEPT 20? I GRADE 

00600 20 FORMAT (. 1 3 ) 

Thus, "ACCEPT f,list" is equivalent to "READ (5,f) list". 

T YPE STATEMENT 

TYPE To have output typed on your terminal use 

TYPE f,list 

where f=the FORMAT statement number. 

Example : 

00200 TYPE .10 

00300 10 FORMAT ('ASPEN IS A NICE PLACE TO SKI!') 

Thus, "TYPE f,list" is equivalent to "WRITE (5,f) list". 

NOTE 

To print something on your terminal, you must include a 
carriage control character similar to the way you do for 
a line prnter. For example, to print the word HELLO on 
your terminal, use the format statement below: 

00200 TYPE 101 

3 1 1 F R MAT' ( ' H E I... I... ' ) 

INTRO-5-2 



FORTRAN- 10 INPUT AND OUTPUT OF DATA 



The space before HELLO tells the system to start on a 
new line. 



DATA FILES 

You may use data files in one of two ways: 

1. In the first method, you let FORTRAN use a predefined 
filename . 

2. In the second method, you choose the filename by using 
the OPEN statement. 

Letting FORTRAN Use A Predefined Filename 

There are six Device Unit Numbers for disk files; whenever 
you use one of them, FORTRAN uses a predetermined filename. 
Te device numbers and their filenames are listed below. 



Device Unit Number 



Filename 



1 

20 

21 

22 

23 

24 



FOR01.DAT 
FOR20.DAT 
FOR21.DAT 
FOR22.DAT 
FOR23.DAT 
FOR24 .DAT 



NOTE 

If you omit the filename from an OPEN statement, 
FORTRAN uses the filename corresponding to the 
device unit number. 



Examples : 

00200 WRITE (1,101) X 



Writes the value of X in 
the file FOR01.DAT, 
according to FORMAT 
statement 101. 



00300 READ < 23*109) Y 



Reads the value of Y from 
the file FOR23.DAT, 
according to FORMAT 
statement 109. 



Using Your Own Filename 

OPEN To use your own filename, place an OPEN statement before the 
first READ or WRITE statement that accesses the file. The 
OPEN statement has the format: 

OPEN (UNIT=n, FILE= ' filename . ext ' ) 

n is the device unit number, and filename. ext is the name of 
the file you want to use. 
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Example : 

2 P E N ( U N I T ■■■■■ 2 v E 1 1... E - ' T E S T ♦ D AT') 

Instructs FORTRAN to open 
the file TEST. DAT "on 
logical unit number 20. 

3 R E A .0 >'■. 2 y .1. '5 ) Y Reads Y from logical unit 

number 20. (The file 

name implied is the same 
as the file name in the 

OPEN statement with the 

same logical unit 
number . ) 

After the last READ or WRITE statement that accesses a file, 
it is recommended (though not required) that you include a 
CLOSE statement. The CLOSE statement has the format: 

CLOSE CLOSE (UNIT=n, FILE= ' filename . oxt ' ) 

n is the device unit number, and filename. ext is the name of 
the file you are closing. 

Example : 

5 C I... S E < U N 1 T =■■: 2 t E 1 1... E = ' T E S T * D AT') 

Closes the file TEST. DAT on logical unit number 20. 
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SOME HELPFUL COMMANDS 

TYPE COMMAND (PRINTING OUT YO UR PROGRAM) 

TYPE Usually you will have made many changes in your program. If 
you would like the monitor to TYPE out your program on your 
terminal as it now stands, command it to: 

.TYPE filename. extension<CR> 

Example : 

» TYPE ASPEN , FQR<CR> 

00:100 C THIS" IS AN EXAMPLE, 

00200 TYPE .10 

00300 10 FORMAT <' ASPEN IS A NICE PLACE TO SKI!') 

00400 END 



DIR 



DIRECT COMMAND (LIS TING ALL THE STOR E D PROGRAMS AND FI LES) 

The DIRECT command causes the monitor to list all the 
programs and files stored in disk files under your account 
number. It also lists the length of each program or file in 
terms of DECsystem-10 disk blocks (a disk block is 640 
characters) and the data on which each was created. This 
command may be abbreviated to DIR. 

Example : 



*DIR<CR> 


ASPEN 


REL 


ASPEN 


QOR 


ASPEN 


FOR 


NEW 


QOR 


QUAD 


REL 


NEW 


FOR 


QUAD 


QOR 


SNOW 


FOR 


QUAD 


FOR 


TOTAL 


OF 15 



BLOCK! 



<055> 18 -NOV -76 DSKCJ 127 v 240'. 

<055> 18 -NOV- 76 

<0S5> 18- NOV- 76 

<055> 18 -NOV- 7 6 

<Of55> 18 -NOV- -76 

<055> 18 -NOV- 7 6 

<055> 18- NOV- -76 

<055> 18 -NOV- 76 

<055> 18 -NOV -76 

IN 9 FILES ON DSKCJ C 27 » 240. "3 



These files belong to the programmer (s) with account 
27,240. 



number 
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You may find that files you did not create are also listed. 
These may be programs and files created by the computer in 
editing and compiling your program. The compiled program is 
contained in a file named " filename . REL" where the filename 
is the same one that you used. If you have edited your 
program there will be a program whose name is identical to 
yours except that it has a Q as the first letter of the 
extension. This is a backup file containing your program as 
it existed prior to your most recent editing of it. Each 
time your program is edited, the program immediately before 
editing becomes the backup, and the previous backup - if it 
existed - is lost. In the foregoing example, the only files 
explicitly created were ASPEN. FOR, NEW- FOR, SNOW. FOR, and 
QUAD. FOR. The backups are ASPEN. QOR, NEW.QOR, and QUAD.QOR. 
SNOW. FOR has not been edited, so it has no backup. 

DELETE COMMAND (ERASIN G A PROGRAM OR FILE) 

DELETE To erase a file from the disk, command the monitor to: 

.DELETE filename. extension<CR> 

Example : 

♦ DELETE ASPEN tFOR<CR> 

FILES deleted; 

ASPEN ♦FOR 

01 BLOCKS FREED 



RENAME COMMAND (GIVING A PROGRAM OR FILE A NEW NAME ) 

RENAME To rename a file use the command 

.RENAME newfilename . extension = oldf ilename . extension<CR> 

Example : 

♦ R E NAM E EXAM P ♦ F R •- S N Q U ♦ F R< C R > 
FILES RENAMED I 
SNOW ♦ FOR 



This will cause the name of SNOW. FOR to be changed to 
EXAMP.FOR 



CTRL/O (SUPPRESSING PRINTED OUTPUT) 



CTRL/O ("0) stops printed output on the terminal The program 
sending the output CONTINUES TO RUN. Use CTRL/O, for 
example, to stop the message of the day during LOGIN or to 
stop the monitor as it TYPEs a program you have asked for. 
CTRL/O is typed by holding the Control (CTRL) key down while 
typing the letter 0. 
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Example : 

. TYPE ASPEN <.PUR<CR> 

00:1.00 C THIS I S3 AN EXAMPLE, 

40200 TYPE 10 

00300 "O 



Although CTRL/C also stops output on the terminal, it also 
stops program execution. 



Complain ts to the Computer - the "Court of Last Resort" 

GRIP E When all else fails and you must gripe to someone, GRIPE to 
the computer by commanding the monitor to: 

<■ R GR1PE<CR> 

The computer will respond with: 

YES? (DEPRESS ESCAPE KEY WHEN THROUGH) 

Now enter your gripe and press the ESCape key when you have 
finished. Remember that typing ESCape causes a $ to be 
printed . 

Example : 

♦R GRIPE<CR> 



YES? (DEPRi: 



:SS ESCAPE KEY WHEN THROUGH) 



THIS CONSOLE IS ALMOST OUT OP PAPERS 
THANK YOU 
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SAYING GOODBYE TO THE COMPUTER 



K JOB COMMAND (LOGGING-OUT) 

To say goodbye to the computer, command the monitor to KJOB 
(KillJOB) : 



KJOB ,KJOB<CR> 



Tie monitor will respond with 
CONFIRMS 

KILL 

PRESERV E 

SAVE Snould you now decide to abort the logout, type CTRL/C ("C). 
If you still wish to logout, you must instruct the monitor 
to kill, preserve, or save each of your disk files. If a 
file is killed, it is erased from the computer memory; 
saved and preserved files, on the other hand, are retained 
in the computer memory. Preserve and save are essentially 
alike except in the matter of protection against inadvertent 
loss or destruction. Preserve, unlike save, protects your 
files from accidental destruction by another user who shares 
your account number. This may occur if, for instance, the 
other user fails to recognize the name of your program 
during his logout and, failing to see any need for its 
preservation, kills it. To take advantage of the protection 
afforded by the preserve file status, it is best to respond 
to the CONFIRM with the letter U: 



<CR> 




(a) K if you wish to kill the file, 

(b) P to preserve it, and 

(c) S to save it. 

Please remember the saved or preserved files occupy valuable 
space on the disk. 

In general, the only files you need preserved have the 
extension FOR. If you have no further changes to make in 
your program, you may preserve the compiled version - this 
will have the extension REL. 
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NOTE 



The DECsystem-10 offers the option of detaching the 
terminal from your job, thereby freeing the terminal 
and the telephone line for another task while your 
program is executing. (This option is, of course, 
only used for programs with long execution times; 
for details see the DECsystem-10 Operating System 
Commands Manual .) Therefore, TURNING OFF THE 
TERMINAL OR BREAKING THE TELEPHONE CONNECTION TO THE 
COMPUTER DOES NOT END YOUR JOB, NOR DOES IT STOP THE 
COMPUTER CLOCK; ONLY THE COMMAND KJOB WILL DO THIS. 
If you should inadvertently hang up without using 
KJOB, the computer clock, thinking that you have not 
yet completed your job, will keep ticking and 
CHARGING YOU FOR TERMINAL TIME. So please remember 
to USE KJOB BEFORE LEAVING THE TERMINAL. If you 
should be accidentally disconnected, always call 
again and end your job properly. (See page INTRO 
7-3.) 



xample 














.KJOB<CR> 














confirm: u<cr> 












dska: 














.l.i ;:> IN (./ «■ 
ASPEN ♦ REL 


<055."i 






.BLKS 


4 
* 


S<CR> 


ASPEN .QOR 


<055:= 




'5 


.BLKS 


« 
♦ 


K<CR> 


NEW .QGR 


<055> 




5 


.BLKS 


♦ 


K<CR> 


QUAD .REL 


<055."i 




x 5 


.BLKS 


t 


S<CR> 


EX AMP .FOR 


<0555 




5 


.BLKS 


♦ 


S<CR> 


QUAD .GQR 


<055."5 




i::j 


.BLKS 


♦ 


K<CR> 


SNOW .FOR 


<0555 




5 


.BLKS 


. 


P<CR> 


QUAD .FOR 


<055.-; 




5 


.BLKS 


. 


P<CR> 


NEW .FOR 


<055> 




5 


.BLKS 


: 


K<CR> 


ASPEN .FOR 


«>55::: 






.BLKS 


*■ 


P<CR> 


dskb: 














JOB 25 v USER 127*1 


mo:.! 


LOGGED 


OF 


■F TTY106 


DELE T ED 4 F 


iles <;. 


»0 


BL 


OCKS) 






SAVED FILES 


<30 Bl.. 


.OCKS 


) 






RUNTIME 32. 


34 SEC 













1430 18- NOV- 76 



K/F Command (Fast Logout) 

K/F For a fast logout in which all programs and files are saved, 
use 

. K/F<CR> 

Although this form of the KJOB command has the advantage of 
being fast, you cannot preserve the programs you wish to 
keep nor kill those you no longer need. 



INTRO-7-2 



SAYING GOODBYE TO THE COMPUTER 

Example : 

. K/f"<CR> 

JOB 25 y USER £ 27*240 J LOGGED OFF TTY.1.06 1432 18 --NOV ■-■76 

SAVED ALL FILES (30 BLOCKS) 

RUNTIME 1.56 SEC 

HELP Command (Getting Ass istance) 

To get assistance during logout, type H (for Help) and the 
monitor will respond. 

WHAT TO DO IF YOU ARE PIS CONNECTED FROM YOUR JOB ( ATTACH ) 

ATTACH Although this can happen to anyone, it will most often 

happen when the telephone lines connecting you and the 

computer break that connection. If necessary, redial the 

telephone number to the computer. Under normal conditions, 
the computer will print: 

PLEASE LOGIN OR ATTACH 

You will wish to attach yourself to the job on which you had 
been working. To do this you must know its job number. 
This is given after your LOGIN command. For example, in the 
LOGIN example on page INTRO 1-3, the job number is 25. 

You may attach to a job by using your account number 

.ATTACH job number [account number] 

The programmer with account number 27,240 may attach to job 
25 by typing: 

♦ ATTACH 25 127 r 240:i<CR> 

If the programmer with this account number is the owner or 
originator of job 25, the monitor asks for his password. 
Otherwise, access to the program is denied. As during 
LOGIN, the password is not printed. If the password is 
accepted, the monitor prints a period and the programmer now 
is attached to his job. 

Example : 

. ATTACH 25 1..27 r 240..I<CR> 
PASSWORD? <CR> 



NOTE 

Account numbers are often called Project-Programmer 
Numbers (PPNs) . In the ATTACH command, the account 
number must be enclosed in square brackets [ ] . If 
your terminal does not have keys labeled [ and ] , 
use SHIFT/K for the left square bracket, [, and 
SHIFT/M for the right square bracket, ]. 
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SAYIlSIG goodbye to the computer 

FORGOT YOUR JOBNUMBER? ( SYS ) 

5YS Suppose you have forgotten your job number. You have thrown 
away your LOGIN, or perhaps you are using a Visual Display 
(CRT) terminal and the LOGIN has long since disappeared from 
the screen. What now? You may find out which jobs are 
being run under your account number by typing: 

.SYS [account number] <CR> 

Example: 

t SYS i::27v24o::i<cr> 

25 DET 3 "C SW :l. 

. KJQB<CR> 

<■ ATTACH 25 i:27>240..l<CR> 

PASSWORD X <CR> 



Here, the programmer with account number 27,240 wishes to 
find out which jobs are logged in under his account number. 
The monitor answers that job 25 is logged in under account 
number 27,240 and that this job is DETached from a terminal. 
Then the programmer ATTACHes to job 25. 

The SYS command may be given whether or not the user is 
logged in. If the user is not logged in, the SYS command 
automatically ends with the KJOB command. 
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CHAPTER 8 
EXAMPLES 

Example 1 (Executing a Program More than Once) : 

This program computes the roots of the quadratic equation ax +bx+c=0. 
Note that FORTRAN statement labels may be in any order and also that 
carriage control characters are necessary for each of the printing 
FORMAT statements. 

.TYPE QUAD, FOR<CR> 



00J.00 
00200 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 
0:1. .1.00 

0:1.200 
0:1.300 
0:1.400 
0:1.500 

0.1.600 
01700 
0:1.800 
0:1.900 
02000 

02:1.00 

02200 
02300 
02400 
02500 
02600 
02700 
02800 
02900 
03000 
03.1.00 
03200 
03300 
03400 
03500 
03600 



80 

:l. 

C 

C 

C 
C 



50 

C 
C 
30 

60 

C 

C 

20 

70 

100 



THIS PROGRAM COMPUTES THE ROOTS OF A 
QUADRATIC EQUATION OF THE FORM t 



AX 



+ DX 



C 







WRITE <5y 80) 

F R MAT < ' G I V E C E F F I C I E N T S ' ) 

READ <5y 10) Ay By C 

FORMAT (F10.2) 

C A I... C U I... A T E.' T l-l E D I S C R I M I N A N T 
DISC - B*B •■ 4*A*C 

DO THE RIGHT THING ACCORDING TO THE SIGN OF DISC 
IF <DISC) 20 y 30 y 40 



POSITIVE DISCRIMINANT 
SROOT =■■ SORT (DISC) 
DENOM »- 2* A 

R00T1 = <--B + SROOT) / DENOM 
ROOT 2 ■» ( -B •• SROOT) / DENOM 
WRITE <5» 50) RO0T1 y ROOT 2 
F R M A T < ' R T S A R E ' y F 10.2). 
GO TO 100 



AND'* F10.2) 



ZERO DISCRIMINANT 

ROOT = -B / <2* A) 

WRITE (5? 60) ROOT 

FORMAT (' ROOT IS'» F10.2) 

GO TO 100 

negative: discriminant 

WRITE (5y 70) 

FORMAT <' ROOTS ARE COMPLEX') 

STOP 

END 



Below, this program is EXECUTEd twice. In the second execution the 
words FORTRAN: QUAD are missing because the program has already been 
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compiled, making it unnecessary for the compile step to be repeated. 
The program is simply loaded into core and executed. (See page INTRO 
3-1.) 

o EXECUTE QUAD*FOE<CR> 



FORTRAN: QUAD 
MAIN* 

link: loading 
elnkxct quad execution::! 

give: coefficients 

2 ♦ <CR> 

--10»<CR> 

12*<CR> 

ROOTS ARE 3» 00 AND 2,00 

STOP 

END OF EXECUTION 

cpu time: o»i3 elapsed time: is* 95 

EXIT 



- e x e c u t e q u a d * f r < cr> 
link: loading 
q..nkxct quad execution:] 



GIVE COEFFICIENTS 

5,<CR> 

•••2,. <CR> 



10*<CR> 



ROOTS ARE COMPLEX 
STOP 

END OF EXECUTION 

CPU TIME: 0,12 ELAPSED TIME: 18 »30 

EXIT 



Example 2 (Reading A Disk File) 



Student grades are recorded on a disk file named STDGRA.DES. Each 
record has a student name (40 characters) and his numerical grade (a 
3-digit integer). The following program will read the grades and 
compute the mean and standard deviation. 

♦TYPE GRADE, F0R<CR> 

00100 C THIS PROGRAM COMPUTES THE MEAN AND 

00200 C STANDARD DEVIATION OF STUDENT GRADES 

00300 C 

00400 OPEN (UNIT-1* FILE- ' STDGRA . DES ' ) 

00500 NUMBER == 

00600 SUM = 

00700 SUMSQR ■-■= 

00800 20 READ < 1 , 10 » END- 100) I GRADE 

00900 10 FORMAT (40X, 13) 

01000 NUMBER == NUMBER 1 1 

01100 SUM = SUM + I GRADE 

01200 SUMSQR = SUMSQR + I GRADE* I GRADE 

01300 GO TO 20 

01400 100 AMEAN == SUM/NUMBER 

01500 VARIAN - (SUMSQR - (SUM*SUM) /NUMBER) / (NUMBER-!) 

01600 STDEV == SORT (VARIAN) 

01700 TYPE 30 y NUMBER. AMEAN* STDEV 
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01800 30 FORMAT ( ' ONUMBE R OF STUDENTS == 'r 13 / 

0:1.900 1' MEAN GRADE ■■•■= ' •> F6,2 / 

2 00 1 ' S T A N D A R D D E V I A T 1 N ■■■■= ' , F 6*2) 

2 1 C L S E < U N I T ::;: 1 y F" I 1. E ~ ' S T D 6 R A . D E S ' ) 

02200 END 

♦EX GRADE* FOR <CR> 



FORTRAN J GRADE 

MAIN, 

LINK? LOADING 

i: I... N K X C T G R A D E E X E C U T 1 N 3 

NUMBER OF STUDENTS -- 17 
MEAN GRADE =•■■■ 80,29 
STANDARD DEVIATION ^ 10,45 

END OF EXECUTION 

CPU TIME? 0,23 ELAPSED TIME? 1,00 

EXIT 



We are opening a disk file, reading the grades stored in it, and, 
closing the file. (See lines 400 and 2100.) Note that the logical 
unit number given in the OPEN and CLOSE statements (UNIT = 1) is the 
same as that given in the READ statement (line 800) and refers to the 
device disk. 

Execution starts at statement 400 (the OPEN statement). There is a 
controlled loop at statements 800 - 1300. The last statement executed 
is the END statement at 2200. 



CONTINUATION LINES 



Lines 1300, 1900, and 2000 are one FORTRAN statement, lines 1900 and 
2000 being continuations of line 1800. Since TABs have been used at 
the beginning of each line to skip over all or part of the label 
field, a way must be provided to inform the computer that the line is 
a continuation line. 

The rule is: If the first character (after the TAB) is any number 
between 1 and 9, then the line is a continuation line. 

E xample 3 (Writ i ng A Disk File) : 

The following is the program that created the data file STDGRA.DES. 
Notice that in the OPEN, WRITE, and CLOSE statements (lines 500, 1100, 
and 1400) the device unit number is an integer variable, IUNIT. IUNIT 
has been given the value 1 (line 400) before it is used. 

,R SOS 

FILE: tJQ E«FQR<C R> 

edit: woe, for 

* po:»<cr > 

00 100 c this program enters student grades 

00200 c enter grade of -1 after last student grade to end 

00300 dimension studnt <8) 

00400 I UN IT ^1 

00500 P E N ( U N I T = I U N I T v F" 1 1... E = ' S T D G R A , D E S ' ) 

6 4 A C C E F : ' T 1 y < S T U D N T < I ) » I : = : 1 » 8 ) 

00700 10 FORMAT (8A5) 
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00800 




00900 


:.'.': 


o :l. 




0:1.100 




0:1.200 


30 


o:l.300 




o:i. 400 


100 


01500 




01600 




* 





ACCEPT 20 v I GRADE 

FORMAT (13) 

IF (I GRADE *EQ, -l ) GO TO 100 

w r :i: r e < i u n :i: t r 3 o > < s t u d n t < i > , :i: = i » a > , i g r a d e 

FORMAT <8A5» 13) 

GO TO 40 

C I... (J S E ( U N I T ■■== I U N it T r F I 1... E ■■■» ' S T D G R A ♦ D E S ' > 

STOP 'THIS IS THE END' 

END 



After this orogram has been executed, the file STDGRA.DES will be 
listed by the DIRECT command (see page IMTRO 6-1) and during the KJOB 
command (see page INTRO 7-1) . 

» EX WOE J :: QR<CR> 

FORTRAN ; WOE 

MAIN, 

LINK! LOADING 

Q..NKXCT WOE EXECUTION ."I 

GEORGE C I. ..INTQN<CR> 

83<CR> 
EL BRIDGE GERRY<CR > 

73<CR> 
D A N I E L D ♦ TOM I"' K I N S < C R> 

58<CR> 
JOHN C::ALHOUN<CR> 

80<CR> 
E I C l-l A E D M ♦ J H N S N < C R> 



79<CR> 
GEORGE DALLAS 


><CR> 


?5<CR> 
WILLIAM 


R. k:i 


:ng<cr> 


6?<CR> 
JOHN DRI: 


iCKINP 


iIDGE<CR> 


77 <CR> 
HANNIBAL 


,.. HAMI.. 


.IN<CR> 



65<CR> 



SCHUYLER COL . FAX<CR> 
77<CR> 



HENRY WILSON<CR> 



77 <CR> 
WILLIAM 


WHEELER<CR> 


?6<CR> 
CHESTER 


AETHUR<CR> 


88<CR> 
LEVI R, 


MORTON <CR> 


91<CR> 
GARRET HOBAET<CR> 


89<CR> 
CHARLES 


DAWES<CR> 


93<CR> 
CHARLES 


CURI 1S<CR> 



75<CR> 
<CR> 
-1<CR> 
THIS IS THE END 

END OF EXECUTION 

CPU TIME J 0.92 ELAPSED TIME? At 2.1. .33 

EXIT 
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E x a mple 4 : 

This program prepares grade reports for the students whose grades are 
recorded on the disk file 3TDGRA.DES. 

.ty pe: report j :: or<cr> 

00100 c program to prepare grade report 

o o 2 oo d :i: m e n s :i: on a n a m e: < 8 > 

3 P E N (ON I T ™ 1 ■> F 1 1... E == ' S T D G R A ♦ D E' S ' > 

00400 C PRINT HEADINGS 

00500 WRITE <5» 10) 

00600 10 FORMAT C'O'y 5X v 'STUDENT' y 27Xy 'GRADE') 

7 3 R E A D CI. r 20 y E N D = 50) ( A N A M E ( I ) y I :::: 1 y 8 ) •> I (3 R A D E 

00800 20 FORMAT <8A5y 13) 

00900 WR I TE (5» 40 ) ( ANAME ( I ) t I :::: 1 r 8 ) y I GRADE 

1 4 F R M A T ( ' ' y 8 A 5 y 1 3 ) 

01:1.00 GO TO 30 

1 2 5 C I... S E < U N I T :;:: 1 ) y F 1 1... E ■■■■■ ' S T D G R A ♦ D E S ' ) 

01300 STOP ' END OF GRADE REPORT' 

01400 END 

. E X REPORT J"OR<C R> 
FORTRAN J REPORT 
MAIN > 

link: loading 

i: i... n k x c t r i::: p o R t e x i;:: c u t i o n ::i 

STUDENT GRADE 

GEORGE CLINTON 83 

ELBRIDGE GERRY 73 

DANIEL D. TOMPKINS 58 

JOHN CALHOUN 80 

RICHARD M< JOHNSON 79 

GEORGE DALLAS 95 

WILLIAM R< KING 69 

JOHN BRECKINRIDGE 77 

HANNIBAL HAMLIN 65 

SCHUYLER COLFAX 77 

HENRY WILSON 77 

WILLIAM WHEELER 96 

CHESTER ARTHUR 88 

LEU I P» MORTON 91 

(3 ARRET HOB ART 89 

CHARLES DAWES 93 

CHARLES CURTIS 75 
END OF GRADE REPORT 

END OF EXECUTION 

CPU TIME: 0*68 ELAPSED TIME! 1134*77 

EXIT 
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Example 5 (Trying To Read A Non-Existent File) 



Now DELETE the data file containing the students' grades, 5TDGRA.DES, 
and then Execute REPORT. FOR (the program in Example 4). The READ 
statement in line 700 cannot be executed since the file to which it 
refers does not exist. Tne execution is thus aborted. 

♦ D E I... E T E S T D G R A . D E S < C R > 



files deleted j 

stdgra.des 

01 blocks freed 

* ex report, for<c r> 

lTnRI loading 

iilnkxct report execution!] 

student grade 

%frsdat attempt to read beyond valid input 
unit-1 dsk : stdgra ♦ desc2 r 240 3<055>/access = se0in0u/m0de.' :: =asci i 

name (loo <<•- caller (loo <#args> carg type s3 

in. (402703) < < m a i n . + 1 1(220) < * 5 > c u i u i u 1 

? job aborted 

end of execution 

c p u t i m e : . 3 5 e l a p s e d time: 1.22 

EXIT 
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PART II 
FORTRAN-10 Language Manual 



The FORTRAN-10 Language Manual reflects the software as of Version 5 
of the FORTRAN-10 Compiler, Version 5 of the FORTRAN-10 Object Time 
System (FOROTS) , and Version 5 of the FORTRAN-10 Debugging Program 
(FORDDT) . 
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CHAPTER 1 
PROLOGUE 



1 . 1 BACKGROUND 

The FORTRAN-10 language set is compatible with and encompasses the 
standard set described in "American National Standard FORTRAN, 
X3. 9-1966" (referred to as the 1966 ANSI standard). FORTRAN-10 also 
provides many extensions and additions to the standard set that 
greatly enhance the usefulness of FORTRAN-10 and increase its 
compatibility with FORTRAN language sets implemented by other major 
computer manufacturers. In this manual, the FORTRAN-10 extensions and 
additions to the 1966 ANSI standard set are printed with gray shading. 

A FORTRAN-10 source program consists of a set of statements 
constructed using the language elements and the syntax described in 
this manual. A given FORTRAN-10 statement will perform any one of the 
following functions: 

1. It will cause operations such as multiplication, division, 
and branching to be carried out. 

2. It will specify the type and format of the data being 
processed . 

3. It will specify the characteristics of the source orogram. 

FORTRAN-10 statements are composed of keywords, i.e., words that are 
recognized by the compiler, used with elements of the language set: 
constants, variable, and expressions. There are two basic types of 
FORTRAN-10 statements: executable and nonexecutable. 

Executable statements specify the action of the program; 
nonexecutable statements describe the characteristics and arrangement 
of data, editing information, statement functions, and the kind of 
subprograms that may be included in the program. The compilation of 
executable statements results in the creation of executable code in 
the object program. Nonexecutable statements provide information only 
to the compiler; they do not create executable code. 

In this manual, the FORTRAN-10 statements are grouped into 12 
categories, each of which is described in a separate chapter. The 
nane, definition, and chapter reference for each statement category 
are given in Table 1-1. 

The basic FORTRAN-10 language elements, (constants, variables, and 
expressions) , the character set from which they may be formed, and the 
rules that govern their construction and use are described in Chapters 

2 through 4. 
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Table 1-1 
FORTRAN-10 Statement Categories 



Chapter 


Category 




Reference 


Name 


Descr iption 


5 


Compilation Control 


Statements in this category 




Statements 


identify programs and indicate 
their beginning and ending 
points . 


6 


Specification 


Statements in this category 




Statements 


declare the properties of 
variables, arrays, and functions. 


7 


DATA 


This statement assigns initial 




Statement 


values to variables and array 
elements . 


8 


Assignment 


Statements in this category cause 




Statements 


named variables and/or array 
elements to be replaced by 
specified (assigned) values. 


9 


Control 


Statements in this category 




Statements 


determine the order of execution 
of the object program and 
terminate its execution. 


10 


Input/Output 


Statements in this category 




Statements 


transfer data between internal 
storage and a specified input or 
output medium. 


11 


NAMELIST 


This statement establishes lists 




Statement 


that are used with certain 
input/output statements to 
transfer data that appears in a 
special type of record. 


12 


File Control 


Statements in this category 




Statements 


identify, open, and close files 
and parameters for input and 
output operations between files 
and the processor. 


13 


FORMAT 


This statement is used with 




Statement 


certain input/output statements 
to specify the form in 'which data 
appears in a FORTRAN record on a 
specified input/output medium. 


14 


Device Control 


Statements in this category 




Statements 


enable the programmer to control 
the positioning of records or 
files on certain peripheral 
devices . 
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Table 1-1 (Cont.) 
FORTRAN-10 Statement Categories 



Chapter 
Reference 


Category 
Name 


Description 


15 
16 


Subprogram 
Statements 

BLOCK DATA 
Statements 


Statements in this category 
enable the programmer to define 
functions and subroutines and 
their entry points. 

Statements in this category 
are used to declare data 
specification subprograms that 
may initialize common storage 
areas. 
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CHAPTER 7 
CHARACTERS AND LINES 



2.1 



:haracter set 



Table 2-1 lists the digits, letters, and symbols recognized by 
FORTRAN-10. The remainder of the ASCII-1963 character set(l), is 
acceptable within literal constants or comment text, but these 
characters cause fatal errors in other contexts. *^n exception is 
CONTROL-Z , which, when used in Teletype input, means end-of-file. 



NOTE 

Lower-case alphabet characters are 
treated as upper-case outside the 
context of Hollerith constants, literal 
strings, and comments. 



Table 2-1 
FORTRAN-10 Character Set 



Letters 




A, a 




Jrj 


3 , s 




B,b 




K,k 


T,t 




C,c 




L,l 


U,u 




D,d 




M,m 


V,v 




E,e 




N,n 


W,w 




F,f 




O,o 


X,X 




G,g 




P,p 


Y,y 




H,h 




Q,q 


Z ,z 




I,i 




R,r 








D 


igi ts 







1 
2 
3 

4 






5 
5 
7 
8 
9 



1. The complete ASCII-1968 character set is defined in the X3. 4-1958 
version of the "American National Standard for Information 
Interchange," and is given in Appendix A. 
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Table 2-1 (Cont.) 
FORTRAN-10 Character Set 



Symbols 



1 Exclamation Point 

" Quotation Marks 

# Number Sign 
$ Dollar Sign 
& Ampersand 

' Apostrophe 

( Opening Parenthesis 

) Closing Parenthesis 

* Asterisk 
+ Plus 



, Comma 

- Hyphen (Minus) 
. Period (Decimal Point] 
/ Slant (slash) 
: Colon 
; Semicolon 
< Less Than 
= Equals 
> Greater Than 
Circumflex 



Line Termination Characters 



Line Feed 
Form Feed 
Vertical Tab 



Line Formatting Characters 



Carriage Return 
Horizontal Tab 
Blank 



Note that horizontal tabs normally advance the character position 
pointer to the next position that is an even multiple of 8. ^n 
exception to this is the initial tab, which is defined as a tab that 
includes or starts in character position 6. (Refer to Section 2.3.1 
for a description of initial and continuation line types.) Tabs within 
literal specifications count as one character even though they may 
advance the character position as many as eight places. 



2.2 STATEMENT, DEFINITION, AND FORMAT 

Source program statements are divided into physical lines. A line is 
defined as a string of adjacent character positions, terminated by the 
first occurrence of a line termination character regardless of 
context. Each line is divided into four fields: 



Statement 
Label Field 



Line Character Positions 



Continuation 
Field 



A 



70 



71 



72 



73 



^ 

Statement Field 



Remarks 
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2.2.1 Statement Label Fi eld and Statement Numbers 

You may place a number ranging from 1 to 99999 in the statement label 
field of an initial line to identify the statement. Any source 
program statement that is referenced by another statement must have a 
statement number. Leading zeroes and all blanks in the label field 
are ignored, e.g., the numbers 00105 and 105 are both accepted as 
statement number 105. You may assign the statement numbers in a 
source program in any order; however, each statement number must be 
unique with respect to all other statements in the program or 
subprogram. You cannot label non-executable statements other than 
FORMAT and END statements. 

A main program and a subroutine may contain identical statement 
numbers. In this case, references to these numbers are understood to 
mean the numbers in the same program unit in which the reference is 
made. An example: 

Assume that main module MAINMD and subprogram SUBl both 
contain statement number 105. A GO TO statement, for 
instance, in MAINMD will refer to statement 105 in MAINMD, 
NOT to 105 in SUBl. A GO TO in SUBl will transfer control 
to 105 in SUBl. 

When you enter source programs into a DECsystem-10 system via a 
standard user terminal, you may use an initial tab to skip all or part 
of the label field. 

If an initial tab is encountered during compilation, FORTRAN-10 
examines the character immediately following the tab to determine the 
type of line being entered. If the character following the tab is one 
of the digits 1 through 9, FORTRAN-10 considers the line as a 
continuation line and the second character after the tab as the first 
character of the statement field. If the character following the tab 
is other than one of the digits 1 through 9, FORTRAN-10 considers the 
line to be an initial line and the character following the tab is 
considered to be the first character of the statement field. The 
character following the initial tab is considered to be in character 
position 6 in a continuation line, and in character position 7 in an 
initial line. 



2.2.2 Line Continuation Field 

Any alphanumeric character (except a blank or a zero) placed in this 
field (position 6) identifies the line as a continuation line. (See 
Section 2.3.1 for description.) 

Whenever you use a tab to skip all or part of the label field of a 
continuation line, the next character you enter must be one of the 
digits 1 through 9 to identify the line as a continuation line. 



2.2.3 Statement Field 

Any FORTRAN-10 statement may appear in this field. Blanks (spaces) 
and tabs do not affect compilation of the statement and may be used 
freely in this field for appearance purposes, with the exception of 
textual data given within either a literal or Hollerith specification 
where blanks and tabs are significant characters. 
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2.2.4 Remarks 

In lines consistinq of 73 or more character positions, only the first 
72 characters are interpreted by FORTRAN-10. (Note that tabs 
generally occupy more than one character position, usually advancing 
the counter to the next character position that is an even multiple of 
eight.) All other characters in the line (character positions 73, 74 
...etc.) are treated as remarks and do not affect compilation. 

tiote that remarks may also be added to a line in character positions 7 
through 72, provided the text of the remark is preceded by the symbol 
"!" (Refer to Section 2.3.3.) 



2 . 3 LINE TYPES 

<\ line in a FORTRAN-10 source program may be: 

1. An initial line, 

2. A continuation line, 

3. A multi-statement line, 

4. A comment line, 

5. A debug line, or 

6. A blank line. 

Each of these line types is described in the following paragraphs. 

2.3.1 Initial and Continuation Line Types 

A FORTRAN-10 statement may occupy the statement fields of up to 20 
consecutive lines. The first line in a multi-line statement group is 
referred to as the initial line; the succeeding lines are referred to 
as continuation lines. 

Initial lines may be assigned a statement number and must have either 
a blank or a zero in their continuation line field, i.e., character 
position 6 . 

If you enter an initial line via a keyboard input device, you may use 
an initial tab to skip all or part of the label field. If you use an 
initial tab for this purpose, you must immediately follow it with a 
non-numeric character, i.e., the first character of the statement 
field must be non-numeric. 

Continuation lines cannot be assigned statement numbers; they are 
identified by any alphanumeric character (except for a blank or zero) 
placed in character position 5 of the line, i.e., continuation line 
field. The label field of a continuation line is treated as remark 
text . 

If you are entering a continuation line via a keyboard, you may use an 
initial tab to skip all or part of the label field; however, the tab 
must be followed immediately by a numeric character other than zero. 
The tab-numeric combination identifies the line as a continuation 
line. 
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Note that blank lines, comments, and debug lines that are treated like 
comments, i.e., debug lines that are not compiled with the rest of the 
program (refer to Section 2.3.4) terminate a continuation sequence. 

Following is an example of a 4-line FORTRAN-10 FORMAT statement using 
initial tabs: 

105 FORMAT ( 1H1 , 17HINITI AL CHARGE = ,F10.5,10H COULOMB, SX, 
213HRESISTANCE = ,F9.3,6H OHM/15H CAPACITANCE = ,F10.6, 
38H FARAD, 11X,13HINDUCTANCE = ,F7.3,3H HENRY/// 
421H TIME CURRENT/7H MS , 10X . 2HMA///) 

Continuation Line Characters, i.e., 2, 3, and 4 



2.3.2 Multi-Statement Lines 

You may write more than one FORTRAN-10 statement in the statement 
field of one line. The rules for structuring a multi-statement line 
are: 

1. Successive statements must be separated by a semicolon (;). 

2. Only the first statement in the series can have a statement 
number . 

3. Statements following the first statement cannot be a 
continuation of the preceding statement. 

4. The last statement in a line may be continued to the next 
line if that next line is made a continuation line. 

An example of a multi-statement line is: 

450 DIST=RATE * TIME ;TIME=TIME+0 . 05 ;CALL PRIME (TIME , DI3T) 



2.3.3 Comment Lines and Remarks 



Lines that contain descriptive text only are referred to as comment 
lines. Comment lines are commonly used to identify and introduce a 
source program, to describe the purpose of a particular set of 
statements, and to introduce subprograms. 

To structure a comment line: 

1. You must place one of the characters C (or c) , $,/,*, or ! 
in character position 1 of the line to identify it as a 
comment line. 

2. You may write the text into character positions 2 through the 
end of the line. 

3. You may place comment lines anywhere in the source program, 
but they cannot precede a continuation line because comments 
terminate a continuation sequence. 

4. You may write a large comment as a sequence of any number of 
lines; however, each line must carry the identifying 
character (C, $,/,*, or !) in its first character position. 
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The following is an example of a comment that occupies more than one 
line. 

CSU3ROUTINE - A12 

CT.4E PURPOSE OF THIS SUBROUTINE IS 
CTQ FORMAT AND STORE THE RESULTS OF 
CTEST PROGRAM HEAT TEST-1101 

Comment lines are printed on all listings, but are otherwise ignored 
by the compiler . 

You may add a remark to any statement field, in character positions 7 
through 72, provided the symbol 1 precedes the text. For example, in 
the line 

IF(N.EQ.O) STOP! STOP IF CARD IS BLANK 

the character group "Stop if card is blank" is identified as a remark 
by the preceding ! symbol. Remarks do not result in the generation 
of object program code, but they will appear on listings. The symbol 
!, indicating a remark, must appear outside the context of a literal 
specification . 

Note that characters appearing in character positions 73 and beyond 
are automatically treated as remarks, so that the symbol ! need not 
be used. (Refer to Section 2.2.4.) 



2.3.4 Debu g Lines 

As an aid in program debugging, a D (or d) in character position 1 of 
any line causes the line to be interpreted as a comment line, i.e., 
not compiled with the rest of the program unless the /INCLUDE switch 
is present in the command string. (Refer to Appendix C for a 
description of the file switch options.) When the /INCLUDE switch is 
present in the command string, the D (or d) in character position 1 is 
treated as a blank so that the remainder of the line is compiled as an 
ordinary (noncomment) line. Note that the initial and all 
continuation lines of a debug statement must contain a D (or d) in 
character position 1. 



2.3.5 Blank Lines 

You may insert lines consisting of only blanks, tabs, or no characters 
anywhere in a FORTRAN-10 source program except immediately preceding a 
continuation line, because blank lines are by definition initial lines 
and as such terminate a continuation sequence. Blank lines are used 
for formatting purposes only; they cause blank lines to appear in 
their corresponding positions in source program listings; otherwise, 
they are ignored by the compiler. 



2.3.6 Line-Sequence Input 

FORTRAN-10 optionally accepts DECsystem-10 line-sequenced files as 
produced by LINED or BASIC. These sequence numbers are used in place 
of the listing line numbers normally generated by FORTRAN-10. 
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2 . 4 ORDERING OF FORTRAN-10 STATE ME NTS 

The order in which you place FORTRAN-10 Statements in a program unit 
is important. That is, certain types of statements have to be 
processed before others to guarantee that compilation takes place as 
you expect. The proper sequence for FORTRAN-10 statements is 
summarized by the following diagram. 



Comment Lines 



PROGRAM, FUNCTION, SUBPROGRAM, or 
BLOCK DATA Statements 



FORMAT Statements 



IMPLICIT Statements 



PARAMETER Statement! 



DIMENSION, COMMON, 
EQUIVALENCE, EXTERNAL 
NAMELIST, or Type 
Specification Statements 



DATA Statements 



Statement 

Function 

Definitions 



Executable 
Statements 



END Statement 



Horizontal lines indicate the order in which FORTRAN-10 statements 
must appear. That is, you cannot intersperse horizontal sections. 
For example, all PARAMETER statements must appear after all IMPLICIT 
statements and before any DATA statements, i.e., PARAMETER, IMPLICIT, 
and DATA statements cannot be interspersed. Statement function 
definitions must appear after IMPLICIT statements and before 
executable statements. 

Vertical lines indicate the way in which certain types of statements 
may be interspersed. For example, you may intersperse DATA statements 
with statement function definitions and executable statements. you 
may intersperse FORMAT statements with IMPLICIT statements, parameter 
statements, other specification statements, DATA statements, statement 
function definitions, and executable statements. The only restriction 
on the placement of FORMAT statements is that they must appear after 
any PROGRAM, FUNCTION, subprogram, and BLOCK DATA statements, and 
before the END statement. 
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Special Cases: 

1. The placement of an INCLUDE statement is dictated by the 
types of statements to be INCLUDEd. 

2. The ENTRY statement is allowed only in functions or 
subroutines. All executable references to any of the dummy 
parameters must physically follow the ENTRY statement unless 
the references appear in the function definition statement, 
the subroutine, or in a preceding ENTRY statement. 

3. BLOCK DATA subprograms cannot contain any executable 
statements, statement functions, FORMAT statements, EXTERNAL 
statements, or MAMELIST statements. (Refer to Section 15.1.) 

When statements are out of place, FORTRAN-10 issues messages, some of 
which may indicate fatal errors. 
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CHAPTER 3 
DATA TYPES, CONSTANTS, SYMBOLIC NAMES, VARIABLES, AND ARRAYS 

3 . 1 DATA TYPES 

The data types you may use in FORTRAN-10 source programs are: 

1 . integer , 

2 . real, 

3. double-precision, 

4. complex, 

5. octal, 

6. double-octal, 

7. literal, 

8. statement label, and 

9. logical. 

The use and format of each of the foregoing data types are discussed 
in the descriptions of the constant having the same data type 
(Sections 3.2.1 through 3.2.8). 

3.2 CONSTANTS 

Constants are quantities that do not change value during the execution 
of the object program. 

The constants you may use in FORTRAN-10 are listed in Table 3-1. 



Table 3-1 
Constants 



Category 



Numeric 

Truth Values 
Literal Data 
Statement Label 



Constant (s) Types 



Integer, real, double-precision, complex, and 

octal 

Logical 

Literal 

Address of FORTRAN statement label 
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3.2.1 Integer C onstan ts 

An integer constant is a string of from one to eleven digits that 
represents a whole decimal number (a number without a fractional 
part). Integer constants must be within the range of (-2**35)-l to 
(+2**35)-l (-34359738357 to +34359733367). Positive integer constants 
may optionally be signed; negative integer constants must be signed. 
You cannot use decimal points, commas, or other symbols on integer 
constants (except for a preceding sign, + or -) . Examples of valid 
integer constants are: 

345 

+ 345 
-345 

Examples of invalid integer constants are: 

+345. (use of decimal point) 
3,450 (use of comma) 
34.5 (use of decimal point; not a whole number) 



3.2.2 Real Constants 

A real constant nay have any of the following forms: 

1. A basic real constant: a string of decimal digits followed 
immediately by a decimal point followed optionally by a 
decimal fraction, e.g., 1557.42. 

2. A basic real constant followed immediately by a decimal 
integer exponent written in E notation (exponential notation) 
form, e.g., 1559. E2. 

3. An integer constant (no decimal point) followed by a decimal 
integer exponent written in E notation, e.g., 1559E2. 

Real constants may be of any size; however, each will- be rounded to 
fit the precision of 27 bits (7 to 9 decimal digits) . 

Precision for real constants is maintained to approximately eight 
significant digits; the absolute precision depends upon the numbers 
involved . 

The exponent field of a real constant written in E notation form 
cannot be empty (blank) ; it must be either a zero or an integer 
constant. The magnitude of the exponent must be greater than -38 and 
equal to or less than +38 (i.e., -38<n<_ + 38). The following are 
examples of valid real constants. 

-93.765 

7.0E+0 (7.) 

.7E-3 (.0007) 

5E+5 (500000.) 

50115. 

50. El (500.) 

The following are examples of invalid real constants. 

72.6E75 (exponent is too large) 

.375E (exponent incorrectly written) 

500 (no decimal point given) 
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3.2.3 D ouble-P recision Constants 

Constants of this type are similar to real constants written in E 
notation form; the direct differences between these two constants 
are : 

1. Double-precision constants, depending on their magnitude, 
have precision to either 15 to 17 places (system with a KA] 
Processor) or 16 to 13 places (system with a KI10 or KL10 
Processor), rather than the 8-digit precision obtained for 
real constants. 

2. Each double-precision constant occupies two storage 
locations . 

3. The letter D, instead of E, is used in double-precision 
constants to identify a decimal exponent. 

You must use both the letter D and an exponent (even of zero) in 
writing a double-precision constant. The exponent need only be signed 
if it is negative; its magnitude must be greater than -38 and equal 
to or less than +38 (i.e., -38<n +38). The range of magnitude 
permitted a double-precision constant depends on the type of processor 
present in your system (on which the source program is to be compiled 
and run). The permitted ranges are: 

Processor Range 

KA10 1.97 X 10**(-31) to 3.4 X 10**(+38) 

KI10 or KL10 0.14 X 10**(-38) to 3.4 X 10**(+38) 

The following are valid examples of double-precision constants. 

7.9D03 (= 7900) 

7.9D+03 (= 7900) 

7.9D-3 (= .0079) 

79D03 (= 79000) 

79D0 (= 79) 

The following are invalid examples of double-precision constants. 

7.9D99 (exponent is too large) 

7.9E5 ("E" denotes a single-precision constant) 



3.2.4 Complex Constants 

You can represent a complex constant by an ordered pair of integer, 
real, or octal constants written within parentheses and separated by a 
comma. For example, (.70712, -.70712) and (3.763E3, 2.297) are 
complex constants. 

In a complex constant the first (leftmost) real constant of the oair 
represents the real part of the number; the second real constant 
represents the imaginary part of the number. Both the real and 
imaginary parts of a complex constant can be signed. 

The real constants that represent the real and imaginary parts of a 
complex constant occupy two consecutive storage locations in the 
object program. 
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3.2.5 Octal Constants 

You may use octal numbers (radix 8) as constants in arithmetic 
expressions, logical expressions, and data statements. Octal numbers 
up to 12 dibits in length are considered standard octal constants; 
they are stored right- justified in one processor storage location. 
When necessary, standard octal constants are padded with leading zeros 
to fill their storage location. 

If you specify more than 12 digits in an octal number, it is 
considered a double octal constant. Double octal constants occupy two 
storage locations and may contain up to 24 right-justified octal 
digits; zeros are added to fill any unused digits. 

If you assign a single octal constant to a double precision or complex 
variable, it is stored, right-justified, in the high-order word of the 
variable. The low-order portion of the variable is set to zero. 

If you assign a double octal constant to a double precision or complex 
variable, it is stored right-justified starting in the low-order 
(rightmost) word and precedes leftwards into the high-order word. 

All octal constants must: 

1. be preceded by a double quote ( " ) to identify the digits as 
octal, e.g., "777, and 

2. be signed if negative, but optionally signed if positive. 

3. contain one or more of the digits through 7, but not 8 or 
9. 

The following are examples of valid octal constants: 

"123456700007 

"123456700007 

+"12345 

-"7777 

"-7777 

The following are examples of invalid octal constants: 

"12368 (contains an 8) 

7777 (no identifying double quotes) 

When you use an octal constant as an operand in an expression, its 
form (bit pattern) is not converted to accommodate it to the type of 
any other operand. For example, the subexpression (A+"202 400 000 
000) has as its result the sum of A with the floating point number 
2.0; while the subexpression (I+"202 400 000 000) has as its result 
the sum of I with a large integer. 

Octal constants may not be used as stand-alone arguments for library 
functions that require non-octal arguments. MIN0, for instance, 
requires INTEGER arguments and cannot accept octal arguments. 

When you combine a double octal constant in an expression with either 
an integer or real variable, only the contents of the high order 
location (leftmost) are used. 
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3.2.6 Logical Constants 

The Boolean values of truth and falsehood are represented in 
FORTRAN-10 source programs as the logical constants .TRUE. and 
.FALSE.. Always write logical constants enclosed by periods as in the 
preceding sentence. 

Logical quantities may be operated on in arithmetic and logical 

statements. Only the sign bit of a numeric used in a logical IF 

statement is tested to determine if it is true (sign is negative) or 
false (sign is positive) . 



3.2.7 Literal Constants 

A literal constant may be either of the following: 



1. A string of alphanumeric and/or special characters 
within apostrophes, e.g., 'TEST#5'. 



contained 



2. A Hollerith literal, which is written as a string of 
alphanumeric and/or special characters preceded by nH (e.g., 



nHstring). In the prefix nH , the letter n 
number that specifies the exact number 
(including blanks) that follow the letter H; 
identifies the literal as a Hollerith literal, 
are examples of Hollerith literals: 



represents a 
of characters 
the letter H 

The following 



2HAB 

14HL0AD TEST #124 

6H#124-A 



NOTE 



A tab i—\) in a Hollerith literal is counted as one 
character, e.g., 3H -*j AB. 



You may enter literal constants into DATA statements as a string of: 

1. up to ten 7-bit ASCII characters for complex or double 
precision type variables, and 

2. up to five 7-bit ASCII characters for all other type 
variables. 

The 7-bit ASCII characters that comprise a literal constant are stored 
left- justified (starting in the high-order word of a 2-word precision 
or complex literal) with blanks placed in empty character positions. 
Literal constants that occupy more than one variable are stored as 
successive variables in the list. The following example illustrates 
how the string of characters 

A LITERAL OF MANY CHARACTERS 

is stored in a six-element array called A. 

DIMENSION A(6) 

DATA A/' A LITERAL OF MANY CHARACTERS 1 / 
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A(2) 
A(3) 
A(4) 
A(5) 
A(5) 



is 
is 
is 
is 
is 
is 



set 
set 
set 
set 
set 
set 



to 
to 
to 
to 
to 
to 



'A LIT 
'ERAL 
'OF MA 
'NY CH 
'ARACT 
'ERS 



3.2. 



Statement Label Constants 



Statement labels are 
statement numbers. 



numeric identifiers that represent program 



You write statement label constants as strings of from one to five 
decimal digits, which are preceded by either a dollar sign ($) or an 
ampersand (&). For example, either $11992 or &11992 may be used as a 
statement label constant. 

You use statement label constants only in the argument list of CALL 
statements to identify the statement to return to in a multiple RETURN 
statement. (Refer to Chapter 15.) 



3 . 3 SYMBOLIC NAMES 

Symbolic names may consist of any alphanumeric combination of from one 

to six characters. You may use more than six characters, but 

FORTRAN-10 will ignore all but the first six. The first character of 

a symbolic name must be an alphabetic character. 

The following are examples of legal symbolic names: 

A12345 
IAMBIC 
ABLE 

The following are examples of illegal symbolic names: 

#AMBIC (symbol used as first character) 
1AB (number used as first character) 

You use symbolic names to identify specific items of a FORTRAN-10 
source program; Table 3-2 lists these items, together with an example 
of a symbolic name and text reference for each. 



Table 3-2 
Use of Symbolic Names 









For a Detailed 




Symbolic Names 




Descr iption 




Can Identify 


For Example 


See Section 


1. 


Variables 


PI, CONST, LIMIT 


3.4 


2. 


Arrays 


TAX 


3.5 


3. 


Array elements 


TAX (NAME, INCOME) 


3.5.1 


4. 


Functions 


MYFUNC, VALFUN 


15.2 


5. 


Subroutines 


CALCSB, SUB2, LOOKUP 


15.5 


6. 


External library 
functions 


SIN, ATAN, COSH 


15.4 


7. 


COMMON block names 


DATAR, COMDAT 


6.5 
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3.4 VARIABLES 



A variable is a datum (storage location) that is identified by a 
symbolic name and is not a constant, an array or an array element. 
Variables specify values that are assigned to them by either 
arithmetic statements (Chapter 8) , DATA statements (Chapter 7), or at 
run time via I/O references (Chapter 10) . Before you assign a value 
to a variable, it is termed an undefined variable, and you should not 
reference it except to assign a value to it. 



If you reference an undefined variable, 
will be obtained. 



an unknown value (garbage) 



The value you assign to a variable may be either a constant or the 
result of a calculation that is performed during the execution of the 
object program. For example, the statement IAB=5 assigns the constant 
5 to the variable IAB; in the statement IAB=5 + B, however,, the value 
of IAB at a given time will depend on the value of variable B at the 
time the statement was last executed. 

The type of a variable is the type of the contents of the datum that 
it identifies. Variables may be: 

1. integer 

2. real 

3. logical 

4. double-precision, or 

5. complex. 

You may declare the type of a variable by using either implicit or 
explicit type declaration statements (Chapter 6) . However, if you do 
not use type declaration statements, FORTRAN-10 assumes the following 
convention : 

1. Variable names that begin with the letters I, J, K, L, M, or 
N are normally integer variables. 

2. Variable names that begin with any letter other than I, J, K, 
L, M, or N are normally real variables. 

Examples of determining the type of a variable according to the 
foregoing convention are given in the following table: 



Variable 



Beginning Letter 



Assumed Data Type 



ITEMP 
OTEMP 
KA123 
AABLE 



Integer 
Real 
Integer 
Real 



3.5 ARRAYS 

An array is an ordered set of data identified by an array name. Array 
names are symbolic names and must conform to the rules given in 
Section 3.3 for writing symbolic names. 
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Each datum within an array is called an array element. As with 
variables, you may assign a value to an array element. Before you 
assign a value to an array element it is considered to be undefined; 
you should not reference it until you have assigned it a value. If 
you reference an undefined array element, the value of the element 
will be unknown and unpredictable (garbage). 

Name each element of an array by using the array name together with a 
subscript that describes the position of the element within the array. 



3.5.1 Array Element Subscripts 

Give the subscript of an array element identifier within parentheses, 
as either one subscript quantity or a set of subscript quantities 
delimited by commas. Write the parenthesized subscript immediately 
after the array name. The general form of an array element name is AN 
(31, S2,...Sn), where AN is the array name and 31 through Sn represent 
n number of subscript quantities. You may use any number of subscript 
quantities in an element name; however, the number used must always 
equal the number of dimensions (Section 3.5.2) specified for the 
array . 

A subscript can be any compound expression (Chapter 4), for example: 

1. Subscript quantities may contain arithmetic expressions that 
involve addition, subtraction, multiplication, division, and 
exponentiation. For example, ( A+B ,C*5 ,D/2) and 
(A**3, (B/4+C) *E,3) are valid subscripts. 

2. Arithmetic expressions used in array subscripts may be of any 
type, but noninteger expressions (including complex) are 
converted to integer when the subscript is evaluated. 

3. A subscript may contain function references (Chapter 14). 
For example: TABLE (SIN (A) *B,2,3) is a valid array element 
identifier . 

4. Subscripts may contain array element identifiers nested to 
any level as subscripts. For example, in the subscript 
( I ( J (K (L) ) ) ,A+B,C) the first subscript quantity given is a 
nested 3-level subscript. 

Here are examples of valid array element subscripts: 

1. IAB(1,5,3) 

2. ABLE (A) 

3. TA3LE1(10/C+K**2,A,B) 

4. MAT(A,AB(2*L) , . 3*TAB ( A, M+l , D) ,5 5) 
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3.5.2 Dimensioning Arrays 

You must declare the size (number of elements) of an array in order to 
enable FORTRAN-10 to reserve the needed amount of locations in which 
to store the array. Arrays are stored as a series of sequential 
storage locations. Arrays, however, are visualized and referenced as 
if they were single or multi-dimensional rectilinear matrices, 
dimensioned on a row, column, and plane basis. For example, the 
following figure represents a 3-row, 3-column, 2-plane array. 



3 COLUMNS 




You specify the size of an array by an array declarator written as a 

subscripted array name. In an array declarator, however, each 

subscript quantity is a dimension of the array and must be either an 
integer variable or an integer constant. 



For example, 
declarators . 



TABLE(I,J,K) and MATRIX (10,7,3,4) are valid array 



The total number of elements that comprise an array is the product of 
the dimension quantities given in its array declarator. For example, 
the array IAB dimensioned as IAB (2,3,4) has 24 elements (2X3X4 
24) . 

You use dimension arrays only in the specification statements 
DIMENSION, COMMON, and type declaration (Chapter 6) . Subscripted 
array names appearing in any of the foregoing statements are array 
declarators; subscripted array names appearing in any other 
statements are always array element identifiers. In array declarators 
the position of a given subscript quantity determines the ©articular 
dimension of the array (e.g., row, column, or plane) that it 
represents. The first three subscript positions specify the number of 
rows, columns, and planes that comprise the named array; each 
following subscript given then specifies a set comprised of n-number 
(value of the subscript) of the previously defined sets. For example: 
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The Dimension Declarator 

TAB (2) 
TAB (2,2) 

TAB (2,2,2) 



TAB (2,2,2,2) 



Specifies the Array(s) 



13 



1,1 


1,2 


2,1 


2,2 



_ 


_- *■ "" 


1,1,2 


1,2,2 




2,1,2 


2,2,2 


1,1.1 


1,2,1 


,-- 


*. *~ 


2,1,1 


2,2,1 


~* "" 



„ - - " 


1,1,2,1 


1,2,2,1 




2,1,2,1 


2,2.2,1 


1,1,1,1 


1,2,1,1 




2,1,1,1 


2,2,1,1 


^ *. - ~ ~ 



_ ^ - " " 


1,1,2,2 


1,2,2,2 




■2,1,2,2 


2,2,2,2 


1,1,1,2 


1,2,1,2 




2,1,1,2 


2,2,1,2 


„, — "* 



NOTE 

FORTRAN-10 permits any number 
dimensions in an array declarator. 



of 



3.5.3 Order of Stored Array Elements 

The elements of an array are arranged in storage in ascending order. 
The value of the first subscript quantity varies between its minimum 
and maximum values most rapidly. The value of the last given 
subscript quantity increases to its maximum value least rapidly. For 
example, the elements of the array dimensioned as 1(2,3) are stored in 
the following order: 



1(1,1) 1(2,1) 1(1,2) (2,2) (1,3! 



(2,3) 



In the following list, the elements of the three-dimensional array 
(B(3,3,3)) are stored row by row from left to right and from top to 
bottom . 



B(1,U) 


B (2,1,1) 


B (3,1,1) -- 


'--♦B (1,2,1) 


B(2,2,l) 


B (3,2,1) -- 


'---•►B (1,3,1) 


B (2,3,1) 


B(3,3,l) --j 


'—♦B (1,1,2) 


B(2,l,2) 


B (3,1,2) --, 


'--•♦B (1,2,2) 


B (2,2,2) 


B (3,2,2) - - 


'--♦B (1,3,2) 


B (2,3,2) 


B (3,3,2) --, 


'--♦B (1,1,3) 


B (2,1,3) 


B (3,1,3) - - 


'—♦B (1,2,3) 


B (2,2,3) 


B (3,2,3) --j 


'--•♦B (1,3,3) 


B (2,3,3) 


B (3,3,3) 



Thus B(3,l,l) is stored before B(l,2,l), and so forth 
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EXPRESSIONS 



4 . 1 ARITHMETIC E X PRESSION S 

Arithmetic expressions may be either simple or compound. Simple 
arithmetic expressions consist of an operand that may be: 

1 . a constant 

2. a variable 

3. an array element 

4. a function reference (see Chapter 14 for description) , or 

5. an arithmetic or logical expression written within 
parentheses . 

Operands may be of integer, real, double precision, complex, octal, or 
literal type. 

Tne following are valid examples of simple arithmetic expressions: 



105 

IAB 

TABLE (3, 4 ,5; 

Sltf (X) 

(A+B) 



(integer constant) 

(integer variable) 

(array element) 

(function reference) 

(a parenthetical expression) 



A compound arithmetic expression consists of two or more operands 
combined by arithmetic operators. Table 4-1 lists the arithmetic 
operations permitted in FORTRAN-10 and the operator recognized for 
each . 



Table 4-1 
Arithmetic Operations and Operators 



Operation 



1. Exponentiation 

2. Multiplication 

3. Division 

4. Addition 

5. Subtraction 



Operator 


Examp 


** or " 


A**B o 


* 


A*B 


/ 


A/B 


+ 


A+B 


— 


A-B 
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EXPRESSIONS 

4.1.1 Rules for Writing Arithmetic Expressions 

Observe the following rules in structuring compound arithmetic 
expressions: 

1. The operands comprising a compound arithmetic expression may 
be of different types. Table 4-2 illustrates all permitted 
combinations of data types and the type assigned to the 
result of each. 



MOTE 

Only one combination of data types, double-precision 
with complex, is prohibited in FORTRAN-10. 



2. An expression cannot contain two adjacent and unseparated 
operators. For example, the expression A*/B is not 
permitted . 

3. All operators must be included; no operation is implied. 
For example, the expression A(B) does not specify 
multiplication although this is implied in standard algebraic 
notation. The expression A* (B) is required to obtain a 
multiplication of the elements. 

4. When you use exponentiation, the base quantity and its 
exponent may be of different types. For example, the 
expression ABC** 13 involves a real base and an integer 
exponent. The permitted base/exponent type combinations and 
the type of the result of each combination are given in Table 
4-3. 
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Table 4-2 
Type of the Result Obtained From Mixed Mode Operations 



, 


" »!>'''■■ - 






Double 















1 


Integer 


Real 

1. Real 


Precision 


C (implex 


logical 


Octal 


Double Octal 


Literal 


1 lvre.it operation 


1 Intei'.er 


1 . Double Precision 


1. Complex 


1. Integer 


I. Integer 


1. Integet 


1. Integer 




J lyre associated 


3 Integer 


: Real 


:. Double Precision 


J. Complex 


2 Integer 


: Integer 


2. Integer 


.!. Integer 




with remit 




















i ( (inversion on 


! None 


.1 1 rom Integer to 


3. Prom Integer to 


.1 1 rom Integer to 


3 None 


3. None 


3. None 


3 None 


Integer 


Argument 1 




Real 


Double Precision 


Complex. Value 
used as Real part 












Arcument 3 


■1 None 


4 None 
1 Real 


4. None 


4. None 


1 None 


4. None 


I. High order word 
ls used directly, 
low order word 
is ignored 


4. High order word 
is used directly: 
further words 
are ignored . 




1 Ivpeol operation 


1. Real 


1. Double Precision 


1 Complex 


1 Real 


I Real 


1. Real 


1. Real 




J lyre associated 


.'. Real 


.1 Real 


2 Double Precision 


: Complex 


2 Real 


2. Real 


2 Real 


3 Real 




3 (onvcisioiion 


i None 


< None 


J Used directly as 


3 Used directly as 


1 None 


3 None 


3 None 


^ None 


Real 


Argument 1 






the high order 
word: low order 


the Real part, 
imaginary pari 












■l < onverMon on 


4. 1 ram Integer to 


4 Non. 


4 None 


4 None 


4 None 


■I. None 


4. High order word 


4 High order word 




Argument .' 


Real 












is used directly, 
low order word 
is ignored 


is used directly, 
further words 
are ignored. 




1 lyreot operation 
used 


1. Double Precision 


1 Double Precision 


1 Double Precision 




1 Double Precision 


I Double Precision 


1 . Double Precision 


1 Double Precision 






2. Double Precision 


2 Double Precision 


.' Double Precision 




2 Double Precision 


: Double Precision 


1 Double Prevision 


: Double Precision 


Double 


' i (inversion ...i 


J. None 


3. None 


.! None 




3 None 


3. None 


3 None 


3 None 


Precision 


Argument 1 




















■1 ( (inversion, m 


4 1 r.im Integer to 


4. Used directly as 


4 None 




4 Used directly as 


4 Used dir.etly as 


4 None 


4 First two words 




Ueumcm .' 


Double Precision 


the high order 






the high order 
word, low order 


the high order 
word, low order 




are used directly : 
further words 






1. Complex 


word is zero. 






word, is zero 


word is zero 




are ignored. 




1 1 ype .it operation 


' " "» 




1 < .mink v 


1 Complex 


1 Complex 


1 Complex 


1 Complex 




2 1 ype associated 


2 Complex 


: Complex 




3 i ompl.s 


2. Complex 


.'. Complex 


.:. Complex 


2 (.'omplex 




will, result 


















Complex 


3 (onversronon 


3 None 


3. None 




t Non. 


3. None 


3 None 


.'I. None 


3 None 




■1 ('on'vcrs."!,'.,,, 


4. 1 rom Integer to 


t Used directly as 




t Non. 


4 Used directly as 


4. Used directly as 


«. None 


4 First two words 




Argument .' 


Complex Value 


the Real part. 






the Real part. 


the Real part. 




aje used directly. 






used as Real part 


imaginary part 






imaginary pari 


imaginary part 




Further words 
are ignored. 




1 1 ype <il iipei.ili.iM 


1 Integer 


1. Real 


I Double Precision 


1. Complex 


1 Integer 


1. Integer 


1 Integer 


1 Integer 




.' i ype associated 
with result 


:. Integer 


J. Real 


: Douhle Precision 


2. Complex 


J Octal 


J. Octal 


.' Octal 


2 Octal 




I None 


t. None 


3 Used din-clly as 


3. Used directlv as 


t None 


3 None 


3. None 


3 None 




\rgiiincnt ] 






the high order 


the Real part 










logical 








word , low order 
word is zero 


imaginary pari 












■1 t .inversion on 
Ucuineiit ' 


4 None 


4. None 


4 None 


4. None 


4 None 


4. None 


4 High order word 
is used directly, 
low order word 
is ignored. 


4 High order word 
is used directly: 
further words 
are ignored. 




1 lypeot opeiatron 


1 Integer 


1 Real 


1 Double Precision 


1 Complex 


I Integer 


1 Integer 


1. Integer 


I Integer 




: 1 ype associated 


_' Integer 


.' Real 


2 Double Precision 


;. Complex 


: Octal 


3. Octal 


;. Octal 


2 Octal 




with result 


















Octal 


Argument 1 


3 None 


v None 


.V Used duejtly ...s 
the high order 
word, low order 
word is zero 


3. Used directlv as 
the Real part, 
imaginary part 


3 None 


3. None 


.' None 


3 None 




4 ( .inversion on 


4 None 


4 None 


4 None 


4 None 


4 None 


t None 


4 High order word 


4. High order word 




Argument 2 














is used directly, 
low ordc- word 
is ignored 


is used directly: 
further words 
arc ignored. 




1 . 1 ype of operation 


1. Integer 


1. Real 


1 . Double Precision 


1. Complex 


1 Integer 


1. Integer 


1. Integer 


1 Integer 




used 




















2. 1 ype associated 


:. Integer 


2. Real 


2 Double Precision 


2 C omplex 


: Octal 


2. Octal 


:. Octal 


2 Octal 




with result 


















Double 


3. C (inversion on 


3 High order word 


3. High order word 


3. None 


3 None 


3. High order word 


3. High order word 


3. High order word 


3. .liglioidci wont 


Ortal 


Argument 1 


is used directly. 


ls used directly. 






is used directly 


is used directly: 


is used directly. 


isuscddliccllv; 






low order word 


low order word 






low order word 


low ordei word 


low order word 


low order w oids 






is ignored 


is ignored. 






is ignored 


is ignorcc 


is ignored. 


ire le.noied 




4. Conversion on 


4. None 


4. None 


4. None 


4 None 


■1. None 


4. None 


4. High order word 


4 iligh order word 




Argument 3 














is used directly, 
low order word 
Ls ignored. 


is used directly, 
low older w.nds 
re lenored. 




1. lype ot operation 


1. Integer 


1 Rear 


1 . Double Precision 


1 Complex 


l Integer 


1 Integer 


1 Integer 


1 Integer 




2. Type associated 


_\ Integer 


3 Real 


:. Double Precision 


: Complex 


3 Octal 


2. Octal 


2. Octal 


2 Octal 




with result 




















3. Conversion on 


3. Fligh order word 


3. High order word 


3. First two words 


3 1 irsl two words 


3 High order word 


3. Higll order word 


3. High order word 


3 High order word 


Literal 


Argument 1 


is used directly. 


is used directly: 


are used directly: 


are used directly. 


is used directly. 


is used directly. 


is used directly. 


is used directly; 






further words 


iurther words 


further words 


further words 


further words 


further words 


further words 


further words 






ate ignored. 


are ignored 


are ignored. 


are ignored 


are ignored 


are ignored. 


are ignored. 


are ignored. 




4 Conversion on 


4 None 


4. None 


4. None 


4 None- 


4 None 


4. None 


4 High order word 


4 Iligh order word 




Argument 2 














is used directly, 
low order word 


is used directly; 
further words 


















is ignored. 


are ignored 

_— - — - 



EXPRESSIONS 



Table 4-3 
Permitted Base/Exponent Type Combinations 



3ase Operand 


Exponent Operand 




Integer 


Real 


Double 
Precision 


Complex 


Integer 


Integer 


Real 


Double 
Precision 


Complex 


Real 


Real 


Real 


Double 
Precision 


Complex 


Double 


Double 


Double 


Double 




Precision 


Precision 


Precision 


Precision 




Complex 


Complex 


Complex 


(Undefined) 


Complex 



4.2 LOGICAL EXPRESSIONS 

Logical expressions may be either simple or compound. Simple logical 
expressions consist of a logical operand, which may be a logical type: 

1. constant 

2. variable 

3. array element 

4. function reference (see Chapter 15) , or 

5. another expression written within parentheses. 

Compound logical expressions consist of two or more ooerands combined 
by logical operators. 

Table 4-4 gives the logical operators permitted by FORTRAN-10 and a 
description of the operation each provides. 



EXPRESSIONS 



Table 4-4 
Logical Operators 



Operator 



AND, 



OR. 



XOR, 



EQV. 



NOT. 



Descr iption 



AND operator. Both of the logical operands combined by 
this operator must be true to produce a true result. 

Inclusive OR operator. IE either or both of the logical 
operands combined by .OR. are true, the result will be 
true . 

Exclusive OR operator. If either but not both of the 
logical operands combined by .XOR. is true, the result 
will be true. 

Equivalence operator. If the logical operands being 
combined by .EQV. are both the same (both are true or 
both are false), the result will be true. 

Complementation operator. This operator is used as a 
prefix that specifies complementation (inversion) of the 
item (operand or expression) that it modifies. The 
original item, if true by itself, becomes false, and vice 
versa . 



Write logical expressions in the general form P .OP. Q, where P and- 
Q are logical operand and .OP. is any logical operator but ".NOT.". 
The .NOT. operator complements the value of a logical operand; you 
must write it immediately before the operand that it modifies, e.g., 
.NOT. P. Table 4-5 is a truth table illustrating all possible logical 
combinations of two logical operands (P and Q) and the resultant of 
each combination. 

When an operand of a logical expression is double-precision or 
complex, only the high-order word of the operand is used in the 
specified logical operation. 

The assignment of a .TRUE. or a .FALSE. value to a given operand is 
based only on the sign of the numeric representation of the operand. 
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Table 4-5 
Logical Operations, Truth Table 



When P is 


And Q is: 


Then the Expression: 


Is: 


True 




.NOT.P 


False 


False 




.NOT.P 


True 


True 


True 


P .AND. Q 


True 


True 


False 


P .AND. Q 


False 


False 


True 


P .AND. Q 


False 


False 


False 


P .AND. Q 


False 


True 


True 


P .OR. Q 


True 


True 


False 


P .OR. Q 


True 


False 


True 


P .OR. Q 


True 


False 


False 


P .OR. Q 


False 


True 


True 


P .XOR. Q 


False 


True 


False 


P .XOR. Q 


True 


False 


True 


P .XOR. Q 


True 


False 


False 


P .XOR. Q 


False 


True 


True 


P . EQV. Q 


True 


True 


False 


P .EQV. Q 


False 


False 


True 


P. EQV. Q 


False 


False 


False 


P -EQV. Q 


True 



Examples 

Assume the following variables 



Variable 

REAL, RUN 

I,J,K 

DP,D 

L, A, B 

CPX,C 



Type 

Real 

Integer 

Double Precision 

Logical 

Complex 



Examples of valid logical expressions consisting of the foregoing 
variables are: 

L.AND.B 

(REAL*I) .XOR. (DP+K) 

L. AND. A. OR. .NOT. (I-K) 
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Logical functions are performed on the full 36-bit binary processor 
representation of the operands involved. The result of a logical 
operation is found by performing the specified function, 
simultaneously, for each of the corresponding bits in each operand. 
For example, consider the expression A=C.OR.D, where C="456 and 
D="201. The operation performed by the processor and the result is: 



/Jord 

Bits 1 
Operand COO 
Operand DO 
Result A 



24 


25 


26 


27 


23 


29 


30 


31 


32 


3 3 


34 


35 











1 








1 





1 


1 


1 

















1 




















1 











1 


1 





1 





1 


1 


1 


1 



Table 4-5 also illustrates all possible logical combinations of two 
one-bit binary operands (P and Q) and gives the result of each 
combination. Just read 1 for true and for false. 



4.2.1 R elationa l Expressions 

Relational expressions consist of two expressions combined by a 
relational operator. The relational operator permits the programmer 
to test, quantitatively, the relationship between two arithmetic 
expressions . 

The result of a relational expression is always a logically true or 
false value. 

In FORTRAN-10, you may write relational operators either as a 2-letter 
mnemonic enclosed within periods, e.g., .GT., or symbolically using 
the symbols, >, <, = and #. Table 4-6 lists both the mnemonic and 
symbolic forms of the FORTRAN-10 relational operators and specifies 
the type of quantitative test performed by each operator. 



Table 4-6 
Relational Operators and Operations 



Operators 


Relation Tested 


Mnemonic 


Symbol ic 


.GT. 
.GE. 
.LT. 
.LE. 
.EQ. 
.NE. 


> 
> = 

< 
< = 

# 


Greater than 

Greater than or equal to 

Less than 

Less than or equal to 

Equal to 

Not equal to 
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Write relational expressions in the general form A(l) .OP.A(2), where 
A represents an arithmetic operand and .OP. is a relational operator. 

You may mix arithmetic operands of type integer, real, and double 
precision in relational expressions. 

You may compare complex operands using only the operators .EQ. (==) and 
.^E. (#) . Complex quantities are equal if the corresponding parts of 
both words are equal. 

Examples 

Assume the following variables: 

Variables Type 

REAL, RON Real 

I , J , K Integer 

DP,D Double Precision 

L,A,B Logical 

CPX,C Complex 

Examples of valid relational expressions consisting of the foregoing 
var iables are : 



(REAL) .GT. 10 
I == 5 
C.EQ.CPX 

Examples of invalid relational expressions consisting of the foregoing 
variables are: 

(REAL).GT 10 (closing period missing from operator) 

OCPX (complex operands can only be combined by .EQ. and 
.NE. operators) 

Examples of valid expressions that use both logical and relational 
operators to combine the foregoing variables are: 

(I.GT. 10) .AND. (J<=K) 

( (I*RON) ==(I/J) ) .OR.K 

(I. AND.K) # ( (REAL) .OR. (RON) ) 

C#CPX.OR.RON 
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4 . 3 EVALUATION OF EXPRESSIONS 

The following determine the order of computation of a FORTRAN-10 
expression : 

1. the use of parentheses 

2. an established hierarchy for the execution of arithmetic, 
relational, and logical operations and 

3. the location of operators within an expression. 



4.3.1 Parenthetical Subexpressions 

In an expression, all subexpressions written within parentheses are 
evaluated first. When parenthetical subexpressions are nested (one 
contained within another) the most deeply nested subexpression is 
evaluated first, the next most deeply nested subexpression is 
evaluated second, and so on, until the value of the final 
parenthetical expression is computed. When more than one operator is 
contained by a parenthetical subexpression, the required computations 
are performed according to the hierarchy assigned operators by 
FORTRAN-10 (Section 4.3.2). 

Example : 

The separate computations performed in evaluating the expression 

A+B/ ( (A/B)+C) -C are: 

1. Rl-A/B 

2. 2=R1+C 

3. R3=B/R2 

4. R4=R3-C 

5. R5=A+R4 

WHERE: Rl THROUGH R5 REPRESENT THE INTERIM AND FINAL RESULTS OF THE 
COMPUTATIONS PERFORMED. 



4.3.2 Hierarchy o f Operators 

The following hierarchy (order of execution) is assigned to the 
classes of FORTRAN-10 operators: 

first, arithmetic operators, 
second, relational operators, and 
third, logical operators. 
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Table 4-7 specifies the precedence assigned to the 
operators of the foregoing classes. 



individual 



With the exception of integer division and exponentiation, all 
operations on expressions or subexpressions involving operators of 
equal precedence are computed in any order that is algebraically 
correct . 

A subexpression of a given expression may be computed in any order. 
For example, in the expression (F(X) + A*B) , the function reference 
may be computed either before or after A*B. 



Table 4-7 
Hierarchy of FORTRAN-10 Operators 



Class 


Level 


Symbol or Mnemonic 


EXPONENTIAL 


First 


* * 


ARITHMETIC 


Second 

Third 

Fourth 


-(unary minus) and + (unary plus) 
*,/ 


RELATIONAL 


Fifth 


• GT. , .GE. , .LT. , .LE. , .EQ. , .NE. 
or 


LOGICAL 


Sixth 
Seventh 
Eighth 
Ninth 


• NOT. 

.AND. 

.OR. 

.EQV. , .XOR. 



Operations specifying integer division are evaluated from left to 
right. For example, the expression I/J*K is evaluated as if it had 
been written as (I/J)*K. But this left-to-right evaluation process 
can be overridden by parentheses. I/J*K (evaluated as(I/J) *K) does 
not equal 1/ (J*K) , which is evaluated as written here. 

When a series of exponentiation operations occurs in an expression, it 
is evaluated in order from right to left. For example, the expression 
A**2**B is evaluated in the following order: 

first Rl = 2**B (intermediate result) 
second R2 = A**R1 (final result) . 



Similarly, here too, parentheses alter the evaluation 
expression . (A**2) **B is evaluated in these two steps: 

first Rl = A**2 (intermediate result) 

second R2 = Rl**2 (final result) 



of 



the 



4.3.3 Mixed Mode Expressions 

Mixed mode expressions are evaluated on a 
subexpression-by-subexpression basis, with the type of the results 
obtained converted and combined with other results or terms according 
to the conversion procedures described in Table 4-2. 
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Example 




Assume the followin 


ig: 


Variable 


Type 


D 


Double-Precision 


X ' 


Real 


I, J 


Integer 



The mixed mode expression D+x* (I/J) is evaluated in the following 

manner : 

1.R1 = I/J Rl is integer 

2.R2 = X*R1 Rl is converted to type real and is multiplied by X 
to produce R2 

3.R3 = D+R2 R2 is converted to type double precision and is added 
to D to produce R3 

where Rl and R2 , and R3 represent the interim and final results 
respectively of the computations performed. 



4.3.4 U se of Logical Operands in Mixed Mode Expressions 

When you use logical operands in mixed mode expressions, the value of 
the logical operand is not converted in any way to accommodate it to 
the type of the other operands in the expression. For example, in 
L*R, where L is type logical and R is type real, the expression is 
evaluated without converting L to type real. 
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CHAPTER 5 
COMPILATION CONTROL STATEMENTS 



5 . 1 INTRODUCTI ON 

You use compilation control statements to identify FORTRAN-10 programs 
and to specify their termination. Statements of this type do not 
affect either the operations performed by the object program or the 
manner in which the object program is executed. The three compilation 
control statements described in this chapter are: PROGRAM statement, 
INCLUDE statement, and END statement. 



5.2 PROGRAM STATEMENT 

■ •" -f. ;' '. .- ' ■; ■ ; — : • ■■■: 

This statement allows you to give the main program a name other than 
the compiler-assumed name "MAIN." The general form of a PROGRAM 
statement is: 

PROGRAM name 

where : 

name is a symbolic name that begins with an alphabetic 

character and contains a maximum of six characters. 

{Refer to Section 3.3 for a description of symbolic 
names.) 

The following rule governs the use of the PROGRAM statement: 

The PROGRAM statement must be the first statement in a program 
unit. (Refer to Section 2.4 for a discussion of the ordering of 
FORTRAN-10 statements.) 



5 . 3 INCLUDE STATEMENT 

This statement allows you to include code segments or predefined 
declarations in a program unit without having them reside in the same 
physical file as the primary program unit. The general form of the 
INCLUDE statement is 

INCLUDE ! dev:f ilename.ext [proj ,prog] /NOLIST' 

where : 



dev : 



is a device name. When no device name is 
specified, DSK: is assumed. 
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filename. ext is the filename and extension of the FORTRAN- 10 
statements that you wish to include. The name of 
the file is required; the extension is optional. 
If you specify "filename" only, .FOR is the 
assumed extension. If you specify the filename 
and period (filename.), the null extension is 
assumed. You may not specify wild (*) 
information. 

[proj,prog] is the project-programmer number. Your project- 
programmer number is assumed if none is specified. 
You cannot specify subdirectory information.. 

/NOLIST is an optional switch indicating that the included 
statements are not to be included in the 
compilation listing. 

The following rules govern the use of the INCLUDE statement: 

1. The INCLUDEd file may contain any legal FORTRAN-10 statement 
except another INCLUDE statement, or a statement that 
terminates the current program unit, such as the END, 
PROGRAM, FUNCTION, SUBROUTINE, or BLOCK DATA statements. 

2. The proper placement of the INCLUDE statement within a 
program unit depends upon the types of statements to be 
INCLUDEd. (Refer to Section 2.4 for information on the 
ordering of FORTRAN-10 statements.) 

3. The file(s) to be INCLUDEd must be on disk. 

Note that an asterisk (*) is appended to the line numbers of the 
INCLUDEd statements on the compilation listing, provided /NOLIST is 
not specified. 



5.4 END STATEMENT 

Use this statement to signal FORTRAN-10 that the physical end of a 
source program or subprogram has been reached. END is a nonexecutable 
statement. The general form of an END statement is: 

END 

The following rules govern the use of the END statement: 

1. This statement must be the last physical statement of a 
source program or subprogram. 

2. When used in a main program, the END statement implies a STOP 
statement operation; in a subprogram, END implies a RETURN 
statement operation. 

3. You may label an END statement. 
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CHAPTER 6 
SPECIFICATION STATEMENTS 



6 . 1 INTRODUCTION 

Use specification statements to specify the type characteristics, 
storage allocations, and data arrangement. There are seven types of 
specification statements: 

1. DIMENSION 

2. Statements that explicitly specify type, such as REAL or 
INTEGER 

3. IMPLICIT 

4 . COMMON 

5. EQUIVALENCE 

6. EXTERNAL 

7 . PARAMETER 

Specification statements are nonexecutable and conform to the ordering 
guidelines described in Section 2.4. 



6.2 DIMENSION STATEMENT 

DIMENSION statements provide FORTRAN-10 with information needed to 
identify and allocate the space required for source program arrays. 
You may specify any number of subscripted array names as array 
declarators in a DIMENSION statement. The general form of a DIMENSION 
statement is 

DIMENSION SI, S2, ...,Sn 

where Si is an array declarator. Array declarators are names of the 
following form: 

name (max ,... ,max) or name (min :max , . . . ,min :max) 

where name is the symbolic name of the array, and each min:max value 
represents the lower and upper bounds of an array dimension. 
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Each min:max value for an array dimension may be either an integer 
constant or, if the array is a dummy argument to a 

subprogram, an integer variable. The value given the minimum 
specification for a dimension must not exceed the value given the 
maximum specification. Minimum values of 1 with their following colon 
delimiters may be omitted from a dimension subscript. This is because 
minimum values are assumed to be 1 in the first place. 

Examples 

DIMENSION EDGE (-1:1,4:8), NET (5,10,4), TABLE (567) 
DIMENSION TABLE ( I AB : J , K , M , 10 : 20) 

(where IA3, J, K, and M are of type integer) . 

Note that you may use a slash in place of a colon as the delimiter 
between the upper and lower bounds of an array dimension. 



6.2.1 Adjustable Dimensions 

When used within a subprogram, an array declarator may use type 
integer parameters as dimension subscript quantities. The following 
rules govern the use of adjustable dimensions in a subprogram: 

1. For single entry subprograms, the array name and each 
subscript variable must be given by the calling program as 
parameters when the subprogram is called. The subscript 
variables may also be in COMMON. 

2. For multiple entry subprograms in which the array name is a 
parameter, any subscript variables may be passed. If all 
subscript variables are not passed or in COMMON, the value of 
the subscript as passed for a previous entry will be used. 

3. The type of the array dimension variables cannot be altered 
within the program. 

4. If the value of an array dimension variable is altered within 
the program, the dimensionality of the array will not be 
affected . 

5. The original size of the array cannot exceed the array 
dimensions assigned within a subprogram, i.e., the size of an 
array is not dynamically expandable. 

Examples 

SUBROUTINE SBR ( ARRAY , Ml , M2 , M3 , M4 ) 
DIMENSION ARRAY ( Ml : M2 , M3 : M4 ) 
DO 27 L=M3,M4 
DO 27 K=M1,M2 
ARRAY (K,L) = VALUE 
27 CONTINUE 
END 

SUBROUTINE SB1 (ARR1,M,N) 
DIMENSION ARR1(M,N) 
ARRl (M,N) =VALUE 
ENTRY SB2(ARR1,M) 
ENTRY 3B3 (ARRl,N) 
ENTRY SB4 (ARRl) 
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In the foregoing example, the first call made to the subroutine must 
be made to 3B1. Assuming that the call is made at SB1 with the values 
M=ll and N=13, any succeeding call to SB2 should give M a new value. 
If a succeeding call is made to SB4 , the last values passed through 
entries SB1, SB2, or SB3 will be used for M and N. 

Note that for the calling program of the form: 

CALL SB1(A, 11,13) 

M=15 

CALL SB3(A,13) 

the value of M used in the dimensionality of the array for the 
execution of SB3 will be 11 (the last value passed) . 



6 . 3 TYPE SPECIFICATION STATEMENTS 

Type specification statements declare explicitly the data type of 
variable, array, or function symbolic names. You may give an array 
name in a type statement either alone (unsubscr ipted) to declare the 
type of all its elements or in a subscripted form to specify both its 
type and dimensions. 

Write type specification statements in the following form: 

type list 

where type may be any one of the following declarators: 

1. INTEGER 

2 . REAL 

3. DOUBLE PRECISION 

4. COMPLEX 

5. LOGICAL 



NOTE 

In order to be compatible with the type 
statements used by other manufacturers, 
the data type size modifier, *n, is 
accepted by FORTRAN-10. You may append 
this size modifier to the declarators, 
causing some to elicit messages warning 
users of the form of the variable 
specified by FORTRAN-10: 



SPECIFICATION STATEMENTS 

Declarator Form of Variable Specified 

INTEGER*2 Full word integer with warning message 

INTEGERM Full word integer 

L0GICAL*1 Full word logical with warning message 

L0GICAL*4 Full wrd logical 

REALM Full word real 

REAL*8 Double-precision real 

C0MPLEX*3 Complex" 

COMPLEX*16 Complex with warning message 

In addition, you may append the data 
type size modifier to individual 
variables, arrays, or function names. 
Its effect is to override, for the 
particular element, the size modifier 
(explicit or implicit) of the primary 
type. For example, 

REAL*4 A, B*3 , C*8 (10) , D 

A and D are single-precision (one full 
word) real, and B and C are 
double-precision (two full words) real. 

The list consists of any number of variable, array, or function names 
that are to be declared the specified type. The names listed must be 
separated by commas and can appear in only one type statement within a 
program unit. 

Examples 

INTEGER A, B, TABLE, FUNC 

REAL R, M, ARRAY (5:10,10:20,5) 

NOTE 

Variables, arrays, and functions of a 
source program, which are not typed 
either implicitly or explicitly by a 
specification statement, are typed by 
FORTRAN-10 according to the following 
conventions : 

1. Variable names, array names, and 
function names that begin with the 
letters I, J, K, L, M, or N are type 
integer . 

2. Variable names, array names, and 
function names that begin with any 
letter other than I, J, K, L, M, or 
N are type real . 



If a name that is the same as a predefined FORTRAN-10 function name 
appears in a conflicting type statement, it is assumed that the name 
refers to a user-defined routine of the given type. If you place a 
generic predefined FORTRAN-10 function name in an explicit tyoe 
statement, it loses its generic properties. 
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6.4 IMPLICIT STATEMENTS 

IMPLICIT statements declare the data type of variables and functions 
according to the first letter of each variable name. IMPLICIT 
statements are written in the following form: 



IMPLICIT type (Al , A2 , . . . , An) , type (Bl,B2, ,Bn) , . . . , type 



As shown in the foregoing form statement, an IMPLICIT statement 
consists of one or more type declarators separated by commas. Each 
type declarator has the form 

type (Al,A2 , . . . , An) 

where type represents one of the declarators listed in Section 6.3, 
and the parenthetical list represents a list of different letters. 

Each letter in a type declarator list specifies that each source 
program variable (not declared in an explicit type specification 
statement) starting with that letter is assigned the data type named 
in the declarator. For example, the IMPLICIT type declarator REAL 
(R,M,N,0) declares that all names that begin with the letters R, M, N, 
or are type REAL names, unless declared otherwise in an explicit 
type statement. 

NOTE 

Type declarations given in an explicit 
type specification override those also 
given in an IMPLICIT statement. 
IMPLICIT declarations do not affect the 
FORTRAN-10 supplied functions. 

You may specify a range of letters within the alphabet by writing the 
first and last letters of the desired range separated by a dash, e.g., 
A-E for A,B,C,D,E. For example, the statement IMPLICIT INTEGER 
(I,L-P) declares that all variables which begin with the letters 
I,L„M,N,0, and P are INTEGER variables. 

You may use more than one IMPLICIT statement, but they must appear 
before any other declaration statement in the program unit. Refer to 
Section 2.4 for a discussion on ordering FORTRAN-10 statements. 



6.5 COMMON! STATEMENT 

The COMMON statement enables you to establish storage that may be 
shared by two or more programs and/or subprograms and to name the 
variables and arrays that are to occupy the common storage. The use 
of common storage conserves storage and provides a means to implicitly 
transfer arguments between a calling program and a subprogram. Write 
COMMON statements in the following form: 

C0MM0N/A1/V1,V2, . . . ,Vn. . ./An/Vl ,V2, . . . ,Vn 

where the enclosed letters /Al/, ..., /An/ represent optional name 
constructs (referred to as common block names when used) . 
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The list (e.g., VI ,V2 . . . , Vn) appearing after each name construct lists 
the names of the variables and arrays that are to occupy the common 
area identified by the construct. The items specified for a common 
area are ordered within the storage area as they are listed in the 
COMMON statement. 

Either label COMMON storage areas or leave them blank (unlabeled). If 
the common area is to be labeled, give a symbolic name within slashes 
immediately before the list of items that is to occupy the names area. 
For example, the statement 

COMMON/ARE hi/ A , B , C/AREA2/TAB (13,3,3) 

establishes two labeled common areas (i.e., AREA1 and AREA2) . Common 
block names bear no relation to internal variables or arrays that have 
the same name. 

If a common area is to be declared as unlabeled, give either nothing 
or two sequential slashes (//) immediately before the list of items 
that is to occupy blank common. For example, the statement 

COMMON/AREA1/ A , B , C//TAB (3,3,3) 

establishes one labeled (AREA1) and one unlabeled common area. 
Unlabeled common area is also called "blank common". 

A given labeled common name may appear more than once in the same 
COMMON statement and in more than one COMMON statement within the same 
program or subprogram. 

Each labeled common area is treated as a separate, specific storage 
area. The contents of a common area, i.e., variables and arrays, may 
be assigned initial values by DATA statements in BLOCK DATA 
subprograms. Declarations of a given common area in different 
subprograms must contain the same number, size, and order of variables 
and arrays as the reference area. 

Items to be placed in a blank common area may also be given in COMMON 
statements throughout the source program. 

During compilation of a source program, FORTRAN-10 will string 
together all items listed for each labeled common area and for blank 
common areas in the order in which they appear in the source program 
statements. For example, the series of source program statements: 

COMMON/3T1/A , B , C/ST2/TAB ( 2 , 2) / /C , D , E 

COMMON/3T1/TST (3,4) //M,N 

COMMON/3T2/X,Y,Z//0,P,Q 

has the same effect as the single statement 

COMMON/STl/A,B,C,T3T(3 ,4) /ST2/TAB ( 2 , 2) , X , Y , Z//C , D , E , M ,N , , P , Q 

All items specified for blank common are placed into one area. Items 
within blank common are ordered as they are given throughout the 
source program. Common block names must be unique with respect to all 
subroutine, function, and entry point names. 

The largest definition of a given common area must be loaded first. 
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6.5.1 Dimensioning Arrays in COMMON Statements 

Subscripted array names may be given in COMMON statements as array 

dimension declarators. However, variables cannot be used as subscript 

quantities in a declarator appearing in a COMMON statement; variable 
dimensioning is not permitted in COMMON. 

Each array name given in a COMMON statement must be dimensioned either 
by the COMMON statement or by another dimensioning statement within 
the program or subprogram that contains the COMMON statement but not 
both. 

Example 

COMMON /A/B(100), C(10,10) 
COMMON X(5,15) ,Y(5) 



6 . 6 EQUIVALENCE STATEMEN T 

The EQUIVALENCE statement enables you to control the allocation of 
shared storage within a program or subprogram. This statement causes 
specific storage locations to be shared by two or more variables of 
either the same or different types. Write the EQUIVALENCE statement 
in the following form: 

EQUI VALENCE ( VI, V2, . . . ,Vn) , ( Wl , W2 , . . . , Wn) , ( XI ,X2 , . . . , Xn) 

where each parenthetical list contains the names of variables and 
array elements that are to share the same storage locations. For 
example, the statements 

EQUIVALENCE (A,B,C) 
EQUIVALENCE ( LOC , SHARE ( 1 ) ) 

specify that the variables named A, B, and C are to share the same 
storage location, and that the variable LOC and array element SHARE (1) 
are to share the same location. 

The relationship of equivalence is transitive; for example, the two 
following statements have the same effect: 

EQUIVALENCE (A,B),(B,C) 
EQUIVALENCE (A,B,C) 

When you use array elements in EQUIVALENCE statements, they must have 

either as many subscript quantities as dimensions of the array or only 

one subscript quantity. In either of the foregoing cases, the 

subscripts must be integer constants. Note that the single case 
treats the array as a one-dimensional array of the given type. 

You may use the items given in an EQUIVALENCE list in both the 
EQUIVALENCE statement and in a COMMON statement providing the 
following rules are observed: 

1. You cannot set two quantities declared in a COMMON statement 
to be equivalent to one another. 
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2. Quantities placed in a common area by means of an EQUIVALENCE 
statement are permitted to extend the end of the common area 
forwards. For example, the statements 

COMMON/R/X, Y,Z 
DIMENSION A(4) 
EQUIVALENCE (A,Y) 

cause the common block R to extend from Z to A(4) arranged as 
follows : 



X 

Y A(l) (shared location) 

Z A(2) (shared location) 

M3) 

A (4) 



3. You cannot use EQUIVALENCE statements that cause the start of 
a common block to be extended backwards. For example, the 
invalid sequence 

COMMON/ R/X,Y,Z 
DIMENSION A(4) 
EQUIVALENCE(X,A(3) ) 

would require A(l) and A(2) to extend the starting location 
of block R in a backwards direction as illustrated by the 
following diagram: 

A Ml) 

I A(2) 

X A(3) 

Y A(4) 
Z 



6 . 7 EXTERNAL STATEMENT 

Any subprogram name to be used as an argument to another subprogram 
must appear in an EXTERNAL statement in the calling subprogram. The 
EXTERNAL statement declares names to be subprogram names to 
distinguish them from other variable or array names. Write the 
EXTERNAL statement in the following form: 

EXTERNAL namel , name2 , . . . , namen 

where each name listed is declar<_ 1 to be a subprogram name. If 
desired, these subprogram names may be FORTRAN-10 defined functions. 

You may also use FORTRAN-10 defined function names for your 
subprograms by prefixing the names by an asterisk (*) or an ampersand 
(&) within an EXTERNAL statement. For example, 

EXTERNAL *SIN, &COS 
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declares SIN and COS to be user subprograms. (If a prefixed name is 
not a FORTRAN-10 defined function, then the prefix is ignored.) 

Note that specifying a predefined FORTRAN-10 function in an EXTERNAL 
statement without a prefix, i.e., EXTERNAL SIN, has no effect upon the 
usage of the function name outside of actual argument lists. If the 
name has generic properties, they are retained outside of the actual 
argument list. (The name has no generic properties within an argument 
list.) 

The names declared in a program EXTERNAL statement are reserved 
throughout the compilation of the program and cannot be used in any 
other declarator statement, with the exception of a type statement. 



6 . 8 PARAMETER STATEMENT 

The PARAMETER statement allows you to define constants symbolically 
during compilation. 

The general form of the PARAMETER Statement is as follows: 

PARAMETER P1 = C1 , P2=C2 , . . . 

where 

Pi is a standard user-defined identifier (referred to in this 
section as a parameter name) 

Ci is any type of constant (including literals) except a label 
or complex constant. (Refer to Chapter 3 for a description 
of FORTRAN-10 constants.) 

During compilation, the parameter names are replaced by their 
associated constants, provided the following rules are observed: 

1. Place parameter names only within the statement field of an 
initial or continuation line type, i.e., not within a comment 
line or literal text. 

2. Place parameter names only where FORTRAN-10 constants are 
acceptable . 

3. Place parameter name references after the PARAMETER statement 
definition. 

4. Use parameter names that are unique with respect to all other 
names in the program unit. 

5. Do not redefine parameter names in subsequent PARAMETER 
statements . 

6. Do not use parameter names as part of some larger syntactical 
construct (such as a Hollerith constant count or a data type 
size modifier) . 
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7 . 1 INTRODUCTION 

DATA statements are used to supply the initial values of variables, 
arrays, array elements, and labeled common. (1) Write DATA statements 
as follows: 

DATA Listl/Datal/,List2/Data2/, . . . ,Listn/Datan/ 

where the List portion of each List/Data/ pair identifies a set of 
items to be initialized and the /Data/ portion contains the list of 
values to be assigned the items in the List. For example, the 
statement 

DATA IA/5/, IB/10/, IC/15/ 

initializes variable IA to the value 5, variable IB to the value 10, 
and the variable IC to the value 15. The number of storage locations 
you specify in the list of variables must be less than or equal to the 
number of storage locations you specify in its associated list of 
values. If the list of variables is larger (specifies more storage 
locations) than its associated value list, a warning message is 
output. When the value list specifies more storage locations than the 
variable list, the excess values are ignored. 

The List portion of each List/Data/ set may contain the names of one 
or more variables, array names, array elements, or labeled common 
variables. You may specify an entire array (unsubscr ipted array name) 
or a portion of an array in a DATA statement List as an implied DO 
loop construct. (See Paragraph 10.3.4.1 for a description of implied 
DO loops.) For example, the statement 

DATA (NARY (I) , 1 = 1 , 5) /l , 2 , 3 ,4 , 5/ 

initializes the first five elements of array NARY as NARY(1)=1, 
NARY (2) =2, NARY (3) =3, NARY (4) =4, NARY (5) =5. 

When you use an implied DO loop in a DATA statement, the loop index 
variable must be of type INTEGER and the loop Initial, Terminal, and 
Increment parameters must also be of type INTEGER. In a DATA 
statement., references to an array element must be integer expressions 
in which all terms are either integer constants or indices of 
embracing implied DO loops. Integer expressions of the foregoing 
types cannot include the exponentiation operator. 

The /Data/ portion of each List/Data/ set may contain one or more 
numeric, logical, literal, or octal constants and/or alphanumeric 
strings . 



1. Refer to Paragraph 6.5 for a description of labeled common. 
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You must identify octal constants by preceding them with a double 
quote (") symbol, e.g, "777. 

You may specify literal data as either a Hollerith specification, 
e.g., 5HABCDE, or a string enclosed in single quotes, e.g., 'ABCDE 1 . 
Each ASCII datum is stored left- just i fied and is padded with blanks up 
to the right boundary of the variable being initialized. 

When you assign the same value to more than one item in List, a repeat 
specification may be used. Write the repeat specification as N*D 
where N is an integer that specifies how many times the value of item 
D is to be used. For example, a /Data/ specification of /3*20/ 
specifies that the value 20 is to be assigned to the first three items 
named in the preceding list. The statement 

DATA M,N,L/3*2 0/ 




Sample Statement Use 

DATA PRINT, I ,0/'TEST' ,30, "77/, (TAB(J) ,J=1 ,30)/30*5/ The first 30 

elements of array 
TAB are 

initialized to 
5.0. 

DATA( (A(I ,J) ,1 = 1,5) ,J=l f 5)/30*1.0/ No conversion 

required . 

DATA( (A(I , J) ,1 = 5,10) ,J = 6 ,15)/60*2.0/ No conversion 

required . 

When a literal string is specified that is longer than one variable 
can hold, the string will be stored left- justified across as many 
variables as are needed to hold it. If necessary, the last variable 
used will be padded with blanks up to its right boundary. 

Example 

Assuming that X, Y, and Z are single-precision, the statement 

DATA X,Y,Z/ ? ABCDEFGHIJKL'/ 

will cause 

X to be initialized to 'ABCDE' 
Y to be initialized to 'FGHIJ' 
Z to be initialized to ' KL### ' 

When a literal string is to be stored in double-precision and/or 
complex variables and the specified string is only one word long, the 
second word of the variable is padded with blanks. 
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Example 

Assuming that the variable C is complex, the statement 

DATA C/' ABC DE' ,' FGHIJ '/ 

will cause the first word oC C to be initialized to 'ABODE' and its 
second word to be initialized to '^JzSjz^ 1 . The string 'FGHIJ' is 
iqnored . 



CHAPTER 8 
ASSIGNMENT STATEMENTS 



8 . 1 INTRODUCTION 

Use assignment statements to assign a specific value to one or mod 
program variables. There are three kinds of assignment statements: 

1. Arithmetic assignment statements 

2. Logical assignment statements 

3. Statement Label assignment (ASSIGN) statements. 



ARITHMETIC ASSIGNMENT STATEMENT 



You use statements of this type to assign specific numeric values to 
variables and/or array elements. Write arithmetic assignment 
statements in the form 

v = e 

where v is the name of the variable or array element that is to 
receive the specified value and e is a simple or compound arithmetic 
expression . 

In assignment statements, the equal symbol (=) does not imply equality 
as it would in algebraic expressions; it implies replacement. For 
example, the expression v=e is correctly interpreted as "the current 
contents of the location identified as v are to be replaced by the 
final value of expression e; the current contents of v are lost." 

When the type of the specified variable or array element name differs 
from that of its assigned value, FORTRAN-10 converts the value to the 
type of its assigned variable or array element. Table 8-1 describes 
the type conversion operations performed by FORTRAN-10 for each 
possible combination of variable and value types. 
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Table 8-1 
Rules for Conversion in Mixed Mode Assignments 



Expression Type (e) 



PEAL 



INTEGER 



COMPLEX 



DGUBLE- 



Variable Type (v) 



Real 



Integer 



v~ , K 



C , H , L 



Complex 



R,C,I 



Double-Precision 



H,C,L 



orohibi ted 



prohibited i D 



Loaical 



PRECISION 










! 


LOGICAL 


D 


D 


R,I 


H,L 


D,H 


OCTAL 


D 


D 


Rfl 


H , C , L 


D 


LITERAL 


D,HS 


C,H% 


D& 


D& 


P. S- 


DOUBLE 


H 


H 


D# 


D 


H 


OCTAL* 













i-3 
01 



Table 8-1 (Cont.) 
Rules for Conversion in Mixed Mode Assignments 



Legend 



D = Direct replacement 

C = Conversion between integer and floating-point with truncation 

R = Real part only 

I = Set imaginary part to 

H = High-order only 

L = Set low-order part to 



Notes 



Octal numbers with 13 to 24 digits are termed double octal. 
Double octals require two storage locations. They are stored 
right-justified and are padded with zeros to fill the 
locations . 

Use the first two words of the literal. If the literal is only 
one word long, the second word is padded with blanks. 

Use the first word of the literal. 



> 
en 
en 

H 

Q 
•Z 

S 
M 

in 

> 
t-3 
H 

S 

•-3 
W 



To convert double octal numbers to complex, the low-order octal 
digits are assumed to be the imaginary part, and the high-order 
digits are assumed to be the real part of the complex value. 
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8 . 3 LOGICAL ASSIGNMENT STATEMENTS 

Use this type of assignment statement to assign values to variables 
and array elements of type logical. Write the logical assignment 
statement in the form 

v = e 



where v is one or more variables and/or array element names, and e is 
a logical expression. 

Examples 

Assuming that the variables L, F, M, and G are of type logical, the 
following statements are valid: 



Sample Statement 
L=.TRUE. 



The contents of L is replaced by logical 
truth . 



F=.NOT.G 



M=A.GT.T or M=A>T 



The contents of L is replaced by the 
logical complement of the contents of G. 

If A is greater than T, the contents of 
M is replaced by logical truth; if A is 
less than or equal to T, the contents of 
M is replaced by logical false. This 
can also be read: If A is greater than 
T, then M is true, otherwise, M is 
false . 



L= ( (I .GT.H) .AND. (J<=K) ) 



The contents of L are replaced by either 
the true or false resultant of the 
expression . 



8.4 ASSIGN (STATEMEN T LABEL) ASSIGNMEN T ST A TEMENT 

Use the ASSIGN statement to assign a statement label constant, i.e., a 
1- to 5-digit statement number, to a variable name. Write the ASSIGN 
statement in the form 

ASSIGN n TO I 

where n represents the statement number and I is a variable name. For 
example, the statement 

ASSIGN 2000 TO LABEL 

specifies that the variable LABEL represents the statement number 
2000. 

With the exception of complex and double-precision, you may use any 
type of variable in an ASSIGN statement. 

Once a variable has been assigned a statement number, FORTRAN-10 will 
consider it a label variable. If a label variable is used in an 
arithmetic statement, the result will be unpredictable. 
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Use the ASSIGN statement in conjunction with assigned GO TO control 
statements (Chapter 9) . The ASSIGN verb sets up statement label 
variables that are then referenced in subsequent GO TO control 
statements. The following sequence illustrates the use of the ASSIGN 
statement : 

555 TAX=(A+B+C) *.05 



ASSIGN 555 TO LABEL 



GO TO LABEL 
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9 . 1 INTRODUCTION 

FORTRAN-10 object programs normally execute statement-by-statement in 
the order in which they were presented to the compiler. The following 
source program control statements, however, enable you to alter the 
normal sequence of statement execution: 

1. GO TO 

2. IF 

3. 00 

4. CONTINUE 

5. STOP 

6 . PAUSE 



9.2 GO TO CONTRO L STATEMENTS 

There are three kinds of GO TO statements: 

1. Unconditional 

2. Computed 

3. Assigned 

A GO TO control statement causes the statement that it identifies to 
be executed next, regardless of its position within the program. The 
following paragraphs describe each type of GO TO statement. 

9.2.1 Unconditional GO TO Statements 



Write GO TO statements of this type in the form 

GO TO n 

where n is the label, i.e., statement number, of an executable 

statement, e.g., GO TO 555. When executed, an unconditional GO TO 

statement transfers control of the program to the statement that it 
specifies . 



9-1 



CONTROL STATEMENTS 

You may position an unconditional GO TO statement anywhere in the 
source program except as the terminating statement of a DO loop. 



9.2.2 Computed GO TO Statements 

Write GO TO statements of this type in the form 

GO TO (Nl ,N2 , . . . ,Nk) E 

where the parenthesized list is a list of statement numbers and E is 
an arithmetic expression. You may include any number of statement 
numbers in the list of this type of GO TO statement; however, each 
number you give must be used as a label within the program or 
subprogram containing the GO TO statement. 

NOTE 

A comma may optionally follow the 
parenthesized list. 

The value of the expression E must be reducible to an integer value 
that is greater than and less than or equal to the number of 
statement numbers given in the statement list. If the value of the 
expression E does not compute within the foregoing range, the next 
statement is executed. 

When a computed GO TO statement is executed, the value of its 

expression, i.e., E, is computed first. The value of E specifies the 

position within the given list of statement numbers of the number that 

identifies the statement to be executed next. For example, in the 
statement sequence 

GO TO (20, 10, 5) K 
CALL XRANGE(K) 

the variable K acts as a switch, causing a transfer to statement 20 if 
K=l, to statement 10 if K=2, or to statement 5 if K=3. The subprogram 
XRANGE is called if K is less than 1 or greater than 3. 



9.2.3 Assigned GO TO Statements 

Write GO TO statements of this type in either of the following forms: 

GO TO K 

GO TO K, (LI ,L2, . . .Ln) 

where K is a variable name and the parenthesized list of the second 
form contains a list of statement labels, i.e., statement numbers. 
The statement numbers you give must be within the program or 
subprogram containing the GO TO statement. 

Assigned GO TO statements of either foregoing form must be logically 
preceded by an ASSIGN statement that assigns a statement label to the 
variable name represented by K. The value of the assigned label 
variable must be in the same program unit as the GO TO statement in 
which it is used. In statements written in the form 

GO TO K, (LI ,L2, . . .Ln) 
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if K is not assigned one of the statement numbers given in the 
statement list, the next sequential statement is executed. 

Examples 

GO TO STAT1 

GO TO STAT1, (177 ,207 ,777) 



9 . 3 IF STATEMENTS 

There are three kinds of IF statements: arithmetic, logical, and 
logical two-branch. 



9.3.1 Arithmetic IF Statements 

Write IF statements of this type in the form 

IF(E) LI ,L2,L3 

where (E) is an expression enclosed within parentheses and LI, L2, L3 
are the labels, i.e., statement numbers, of three executable 
statements . 

This type of IF statement transfers control of the program to one of 
the given statements according to the computed value of the given 
expressions. If the value of the expression is: 

1. Less than 0, control is transferred to the statement 
identified by LI; 

2. Equal to 0, control is transferred to the statement 
identified by L2; 

3. Greater than 0, control is transferred to the statement 
identified by L3 . 

You must give all three statement numbers in arithmetic IF statements; 
the expression given may not compute to a complex value. 

Examples 

Sample Statement 

IF(ETA)4, 7, 12 Transfers control to statement 4 if 

ETA is negative, to statement 7 if 

ETA is 0, and to statement 12 if 
ETA is greater than 0. 

IF(KAPPA-L(10) ) 20, 14, 14 Transfers control to statement 20 

if KAPPA is less than the 10th 
element of array L and to statement 
14 if KAPPA is greater than or 
equal to the 10th element of array 
L. 
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9.3.2 Logical IF Statements 

Write IF statements of this type in the form 

IF(E) S 

where E is any expression enclosed in parentheses and S is a complete 
executable statement. 

Logical IF statements transfer control of the program either to the 
next sequential executable statement or the statement given in the IF 
statement, i.e., S, according to the computed logical value of the 
given expression. If the value of the given logical expression is 
true (negative) , control is given to the executable statement within 
the IF statement. If the value of the expression is false (positive 
or zero), control is transferred to the next sequential executable 
program statement. 

The statement you give in a logical IF statement may be any FORTRAN-10 
executable statement except a DO statement or another logical IF 
statement . 

Examples 

Sample Statement 

IF (T.OR.S) X=Y+1 Performs an arithmetic 

replacement operation if the 
result of IF is true. 

IF (Z.GT.X(K)) CALL SWITCH(S,Y) Performs a subroutine call if 

the result of IF is true. 

IF (K.EQ. INDEX) GO TO 15 Performs an unconditional 

transfer if the result of IF 
is true . 



9.3.3 Logical T wo-Branch IF Statements 

Write IF statements of this type in the form 

IF (E) Nl, N2 

where E is any parenthetical expression, and Nl and N2 are statement 
labels defined within the program unit. 

Logical two-branch IF statements transfer control of the program to 
either statement Nl or N2, depending on the computed value of the 
given expression. If the value of the given logical expression is 
true (negative) , control is transferred to statement Nl. If the value 
of the expression is false (positive or zero) , control is transferred 
to statement N2. 

Note that you must number the statement immediately following the 
logical two-branch IF so that control can later be transferred to the 
portion of code that was skipped. 



9-4 



Examples 



CONTROL STATEMENTS 



Sample Statement 
IF (LOG1) 10,20 



Transfers control to statement 10 
if LOG1 is negative; otherwise 
transfers control to statement 20. 



IF (A.LT.B. AND.A.LT.C) 31,32 Transfers control to statement 31 

if A is less than both B and C; 

transfers control to statement 32 

if A is greater than or equal to 
either B or C. 



9 . 4 DO STATEMENT 

DO statements simplify the coding of iterative procedures; write them 
in the following form: 



where 



Indexing Parameters 



DO N I = M1,M2,M3 



TERMINAL 

STATEMENT 

LABEL 




INCREMENT 
PARAMETER 



INDEX 
VARIABLE 



INITIAL 
PARAMETER 



Terminal Statement Label N is the statement number of the 
last statement of the DO statement range. The range of a DO 
statement is defined as the series of statements that follows 
the DO statements up to and including its specified terminal 
statement . 

Index Variable I is an unsubscr ipted variable whose value is 
defined at the start of the DO statement operations. The 
index variable is available for use throughout each execution 
of the range of the DO statement, but its value should not be 
altered within this range. It is also available for use in 
the program when: 

a. control is transferred outside the range of the DO loop 
by a GO TO, arithmetic IF or RETURN statement located 
within the DO range, 



a CALL is executed from within the DO statement 
that uses the index variable as an argument, and 



range 



if an input-output statement with either or both the 
options END= or ERR= (Chapter 10) appears within the DO 
statement range. 
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3. Initial Parameter Ml assigns the index variable, I, its 
initial value. This parameter may be any variable, array 
element, or expression. 

4. Terminal Parameter M2 provides the value that determines how 
many repetitions of the DO statement range are performed. 

5. Increment Parameter M3 specifies the value to be added to the 
initial parameter (Ml) on completion of each cycle of the DO 
loop. If M3 and its preceding comma are omitted, M3 is 
assumed to be equal to 1. 

An indexing parameter may be any arithmetic expression resulting in 
either a positive or negative value. The values of the indexing 
parameters are calculated only once, at the start of each DO-loop 
operation. The number of times that a DO loop will execute is 
specified by the formula: 




One execution of a DO loop range is always performed regardless of the 
initial values of the index variable and the indexing parameters. 

Exit from a DO loop operation on completion of the number of 
iterations specified by the loop count is referred to as a normal 
exit. In a normal exit, control passes to the first executable 
statement after the DO loop range terminal statement, and the value of 
the DO statement index variable is considered undefined. 

Exit from a DO loop may also be accomplished by a transfer of control 
by a statement within the DO loop range to a statement outside the 
range of the DO statement (Paragraph 9.4.3). 



9.4.1 Nest ed DO Statements 

One or more DO statements may be contained, i.e., nested, within the 
range of another DO statement. The following rules govern the nesting 
of DO statements. 
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The range of each nested DO statement must be entirely within 
the range of the containing DO statement. 



Example 



Valid 



Invalid 



DO 1 



DO 



DO 1 





DO 2 











2. 



The range of 
DO 2 is outside 
that of DO 1. 



The ranges of nested DO statements cannot overlap 
Example 



Valid 



Inval id 



DO 1 



DO 1 



DO 2 



DO 3 





DO 2 
DO 3 



The ranges of 
loop DO 2 and 
DO 3 overlap. 



More than one DO loop within a nest of DO loops may end on 
the same statement. When this occurs, the terminal statement 
is considered to belong to the innermost DO statement that 
ends on that statement. The statement label 4 of the shared 
terminal statement cannot be used in any GO TO or arithmetic 
IF statement that occurs anywhere other than within the range 
of the DO statement to which it belongs. 

Example 



DO 4 





DO 4 








DO 4 






DO 4 


1 



All the DO statements 
share the same terminal 
statement, however, it 
belongs to DO 4. 
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9.4.2 Extended Range 

The extended range of a DO statement is defined as the set of 
statements that execute between the transfers out of the innermost DO 
statement of a set of nested DOs and the transfer back into the range 
of this innermost DO statement. The extended range of a nested DO 
statement is as follows: 



DO 1 




The following rules govern the use of a DO statement extended range: 

1. The transfer out statement for an extended range operation 
must be contained by the most deeply nested DO statement that 
contains the location to which the return transfer is to be 
made . 

2. A transfer into the range of a DO statement is permitted only 
if the transfer is made from the extended range of that DO 
statement . 

3. The extended range of a DO statement must not contain another 
DO statement. 
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4. The extended range of a DO statement cannot change the index 
variable or indexing parameters of the DO statement. 

5. You may use and return from a subprogram within an extended 
range . 



9.4.3 Permitted Transfer Operations 

The following rules govern the transfer of program control from within 
a DO statement range or the ranges of nested DO statements: 

1. A transfer out of the range of any DO loop is permitted at 
any time. When such a transfer executes, the value of the 
controlling DO statement's index variable is defined as the 
current value. 

2. A transfer into the range of a DO statement is permitted if 
it is made from the extended range of the DO statement. 



You may use and return from 
range o£ any: 



subprogram from within the 



a. DO loop, 

b. nested DO loop, or 

c. extended range loop (in which you leave the loop via a GO 
TO, execute statements elsewhere, and return to the 
original loop) . 

The following examples illustrate the transfer operations permitted 
from within the ranges of nested DO statements: 

Valid Transfers 



D2 



£> 



extended range 



Invalid Transfer 
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9 . 5 CONTINUE STATEMENT 

You may place CONTINUE statements anywhere in the source program 
without affecting the program sequence of execution. CONTINUE 
statements are commonly used as the last statement of a DO statement 
range in order to avoid ending with a GO TO, PAUSE, STOP, RETURN, 
arithmetic IF, another DO statement, or a logical IF statement 
containing any of the foregoing statements. Write this statement as 

12 CONTINUE 

Example 

In the following sequence, the labeled CONTINUE statement provides a 
legal termination for the range of the DO loop. 



DO 45 ITEM=1,1000 
3T0CK=NVNTRY (ITEM) 
CALL UPDATE ( STOCK , TALLY) 
IF (ITEM. EQ. LAST) GO TO 77 
45 CONTINUE 



77 PRINT 20, HEADING, PAGENO 



9 . 6 STOP STATEMEN T 

Execution of the STOP statement causes the execution of the object 
program to be terminated and returns control to the DECsystem-10 
Monitor. A descriptive message may optionally be included in the STOP 
statement to be output to your I/O terminal immediately before program 
execution is terminated. Write this statement like this: 

STOP 
STOP ' N ' 

or 

STOP n, 

where 'N' is a string of ASCII characters enclosed by single quotes 
and n is an octal string up to 12 digits. The string N or the value n 
is printed at your I/O terminal when the STOP statement executes. The 
string N may be of any length. (Continuation lines may be used for 
large messages.) 
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Examples 

STOP 'Termination of the Program' 
or 

STOP 7777 

9 . 7 PAUSE STATEMENT 

Execution of a PAUSE statement suspends the execution of the object 
program and gives you the option to: 

1. Continue execution of the program 

2. Exit 

3. Initiate a TRACE operation (Paragraph 9.7.1). 
The permitted forms of the PAUSE statements are: 

1. PAUSE 

2. PAUSE 'literal string' 

3. PAUSE n, where n is an octal string up to 12 digits. 

Execution of a PAUSE statement of any of the foregoing forms causes 
the standard instruction: 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE 

to be printed at your terminal. If the form of the PAUSE statement 
contains either a literal string or an integer constant, the string or 
constant prints on a line preceding the standard message. For 
example, the statement 

PAUSE 'TEST POINT A' 

causes the following to be printed at your terminal: 

TEST POINT A 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE 

The statement 

PAUSE 1 

causes the following to be printed at your terminal: 

PAUSE 000001 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE 
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9.7.1 T (TRACE ) Option 

The entry of the character T in response to the message output by the 
execution of a PAUSE statement starts a TRACE routine. This routine 
causes a complete history of all subroutine calls made during the 
execution of the program, up to the execution of the PAUSE statement 
to be printed at your terminal. The history printed by the TRACE 
routine consists of: 



The names of all subroutines called, arranged in the reverse 
order of their call; 

The absolute location (written within parentheses) of the 
called subroutine; 

The name of the calling subroutine plus an offset factor and 
the absolute location (written within parentheses) of the 
statement within the routine that initiated the call; 

The number of arguments involved (written within angle 
brackets) ; 

An alphabetic code (written within square brackets) that 
specifies the types of each argument involved. The 
alphabetic codes used and the meaning of each are: 



Code Character 

U 

L 
I 
F 

S 
D 
C 
K 



Type Specified 

Undefined type; the use of the 

argument will determine its type. 

Logical 

INTEGER 

Single-precision REAL 

Octal 

Statement Number 

Double-precision REAL 

COMPLEX 

A literal or constant 



Example 

The following printout illustrates the execution of the PAUSE 
statement "PAUSE 'TEST POINT A'", the entry of a T character to 
initiate the TRACE routine, the resulting trace printout, and the 
entry of the character G to continue the execution of the program. 

TEST POINT A 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE. 

NAME (LOC) << CALLER (LOC) <#ARGS> [ARG TYPES] 

TRACE. (414056) << PAUS . +141 ( 376) <#1> [U] 

PAUS. (235) << MAIN. +4(151) <#1> [U] 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE. 
*G 
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In addition to its use with the PAUSE statement, you may call the 
TRACE routine directly, using the form 

CALL TRACE 

or as a function, using the form 

X=TRACE(x) 

Execution of the foregoing statements starts the TRACE routine, which 
prints the history of all subprogram calls made during the execution 
of the program, up to the execution of the CALL statement or up to the 
execution of the function, respectively. The history printed by the 
TRACE routine under these circumstances is as described in the 
preceding paragraph. 
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CHAPTER 10 
I/O STATEMENTS 



10.1 DATA TRANSFER OPERATIONS 

FORTRAN-10 I/O statements permit the transfer of data between 
processor storage (core) and peripheral devices and/or between storage 
locations. Data in the form of logical records may be transferred by 
use of an a) sequential, b) random access, c) append transfer mode, or 
d) dump mode. The areas in core from which data is to be taken during 
output (write) operations and into which data is stored during input 
(read) operations are specified by: 

1. A list in the I/O statement that initiated the transfer 

2. A list defined by a NAMELIST statement, or 

3. Between a specified FORMAT statement and the external medium. 

The type and arrangement of transferred data may be specified by 
format specifications located in either a FORMAT statement or an array 
(formatted I/O) , or by the contents of an I/O list (list-directed 
I/O) . 

The following sections describe the statements and data format 
required to initiate I/O transfer operations. 



10.2 TRANSFER MODES 

The characteristics and requirements of the a) sequential, b) random 
access, and c) append data modes are described in the following 
paragraphs . 



10.2.1 Sequential Mode 

Records are transferred during a sequential mode of operation in the 
same order they appear in the external data file. Each I/O statement 
executed in a sequential mode transfers the record immediately 
following the last record transferred from the accessed source file. 



10.2.2 Random Access Mode 

This mode permits access to and transfer of records from a file in any 
desired order. Random access transfers, however, may be made only to 
(or from) a device that permits random-type data addressing 
operations, i.e., disk, and to files that have previously been set up 
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for random access transfer operation. Files for random access must 
contain a specified number of identically sized records that may be 
accessed/ individually, by a record number. 

You may use the FORTRAN-10 OPEN statement - see Chapter 12 - or a 
subroutine call to DEFINE FILE to set up random access files. 

Use the OPEN statement to establish a random access mode to permit the 
execution of random access data transfer operations. The OPEN 
statement should logically precede the first I/O statement for the 
specified logical unit in the user source program. 



10.2.3 Append Mode 

This mode is a special version of the sequential transfer mode: Use 
it only for sequential output (write) operations. The append mode 
permits you to write a record immediately after the last logical 
record of the accessed file. During an append transfer, the records 
already in the accessed file remain unchanged. The only function 
performed is the appending of the transferred records to the end of 
the file. 

You must use an OPEN statement to establish an append mode before 
append I/O operations can be executed. 



10.3 I/O STATEMENTS, BASI C FO RMATS AND COMPO NENTS 

The majority of the I/O statements described in this chapter are 
written in one of the following basic forms or in some modification of 
these forms: 

Basic Statement Forms Use 

Keyword (u,f)list Formatted I/O Transfer 

Keyword (u#R,f)list Random Access Formatted I/O Transfer 

Keyword (u,*)list List-Directed I/O Transfer 

Keyword (u,N) NAMELIST-Controlled I/O Transfer 

Keyword (u)list Binary I/O Transfer 

Keyword (u#R)list Random Access Binary I/O Transfer 

where 

Keyword = the statement name (READ or WRITE) 

u = FORTRAN-10 logical unit number 

f = FORMAT statement number in the current program 

unit or the name of an array that contains the 
desired format specifications 

list = I/O list 

#R = the delimiter # followed by the number of a 

record in an established random-access file 

* = symbol specifying a list-directed I/O transfer 

N = the name of an I/O list defined by a NAMELIST 

statement 

The following paragraphs provide details of the foregoing components. 
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10.3.1 I/O Statement Keywords 

The keywords (names) of the FORTRAN-10 I/O statements described in 
this chapter are: 



1 . READ 

2 . REREAD 

3. ACCEPT 

4. FIND 

5. DECODE 



6. WRITE 

7. PRINT 

8. PUNCH 

9. TYPE 
10. ENCODE 



10.3.2 FORTRAN-10 Logical Unit Numbers 

Decimal numbers identify the physical devices used for most FORTRAN-10 
I/O operations. During compilation, the compiler assigns default 
logical unit numbers for the REREAD, READ, ACCEPT, PRINT, PUNCH and 
TYPE statements. Default unit numbers are negatively signed decimal 
numbers that you cannot access. 

You may make the logical device assignments at run time, or you may 
use the standard assignments contained by the FORTRAN-10 Object Time 
System (FOROTS) . Table 10-1 lists the standard logical device 
assignments. We recommend that you specify the device explicitly in 
the OPEN statement. 



10.3.3 FORMAT St a tement Re ferences 

A FORMAT statement contains a set of format specifications that 
defines the structure of a record and the form of the data fields 
comprising the record. Format specifications may also be stored in an 
array rather than in a FORMAT statement. (Refer to Chapter 13 for a 
complete description of the FORMAT statement.) 

The execution of an I/O statement that includes either 
statement number or the name of an array that cont 
specifications causes the structure and data of the transfe 
to assume the form specified in the referenced statemen 
Records transferred under the control of a format specifi 
referred to as "formatted" records. Conversely, records 
by I/O statements that do not reference a format specifi 
referred to as "unformatted" records. During unformatted 
data is transferred on a one-to-one correspondence betwee 
(processor) and external (device) locations, with no co 
formatting operations. 

Unformatted files are binary files divided into records by FORTRAN-10 
embedded control words; the control words are invisible to you. You 
cannot prepare files of this type without using FOROTS. Unformatted 
files are for use only within the FORTRAN-10 environment. 



a FORMAT 


ains format 


rred record 


t or array. 


cation are 


transferred 


cation are 


transfers, 


n internal 


nversion or 
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Table 10-1 
FORTRAN-10 Loaical Device Assignments 



i 



Device/Function Default Filename FORTRAN Logical 


Unit Number Use 

i 


Standard Devices* 


! 


C 00 


ILLEGAL 


DSK FCRxx.DAT 01 


Disk 


CDR 


02 


Card Reader 


LPT 


03 


Line Printer 


CTY 


C4 


Console Teletype 


TTY 


05 


User ' s Teletype 


PTR 


06 


Paper Tape Reader 


PTP 


07 


Paper Tape Punch 


DIS 


08 


Display 


DTA1 


09 


DECtape 


DTA2 


10 






DTA3 


11 






DTA4 


12 






DTA5 


13 






DTA6 


14 


f 


DTA7 


15 


DECtape 


MTAO 


16 


Magnetic Taoe 


MTA1 


17 


1 


MTA2 


18 


t 


FORTR 


19 


Assignable Device 


DSK 


20 


DISK 


DSK 


21 






DSK 


22 






DSK 


23 






DSK T 24 


f 


*The total number of standard devices permitted is 


an installation 


parameter . 





CO 

t-3 
'£> 

M 
3 

2, 

CO 



Table 10-1 (Cont.) 
FORTRAN-ID Logical Device Assignment; 



Device/ Function 


Default Filename 




FORTRAN 


Logical 


Unit 


Number 


Use 


Standard Devices 


* 


















DE 
DE 
DE 
DE 
DE 


VI 

V2 
V3 
V4 
V5 


FORx* 


:.DAT 










25 
26 
27 
28 
29 






Assignable Devices 


DE 


V6 3 


f 
FOR6 3 .DAT 










f 
63 






if 

Disk 


Default Devices 


( inaccessible 


to 


the 


user) 












REREAD 

CDR 

TTY 

LPT 

PTP 

TTY 


Current file 

FORCDR.DAT 

FORTTY.DAT 

FORLPT.DAT 

FORPTP.DAT 

FORTTY.DAT 










-6 

-5 
-4 
-3 
-2 
-1 






REREAD statement 
READ statement 
ACCEPT statement 
PRINT statement 
PUNCH statement 
TYPE statement 


*The total number of standard 
parameter . 


devices permi 


tted 


is 


an 


installat 


ion ! 

i 
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10.3.4 I/O List 



An I/O list specifies the names of variables, arrays, and array 
elements to which input data is to be assigned or from which data is 
to be output. Implied DO constructs (Paragraph 10.3.4.1), which 
specify sets of array elements, may also be included in I/O lists. 
The number of items in a statement list determines the amount of data 
to be transferred during each execution of the statement. 



10.3.4.1 I mplied DO Constructs - When an array name is given in an 
I/O list, all elements of the array are transferred in the order 
described in Chapter 3 (Paragraph 3.5.3). If only a specific set of 
array elements is involved, they may be specified in the I/O list 
either individually or in the form of an implied DO construct. 

Write implied DOs within parentheses in a format similar to that of DO 
statements. They may contain one or more variable, array, and/or 
array element names, delimited by commas and followed by indexing 
parameters that are defined as for DO statements. 



The general form of an implied DO is 



(name (3L) ,I=M1,M2,M3) 



wher. 



name 
SL 



Ml ,M2,M3 



= an array name 

= the subscript list of an array or an array 
element identifier 

= the index control variable that may represent a 
subscript appearing in a preceding subscript list 

= the indexing parameters that specify, 
respectively, the initial, terminal, and 
increment values that control the range of I. If 
M3 is omitted (with its preceding comma) , a value 
of 1 is assumed. 



Examples 

(A(S) ,3=1,5) 

(A(2,S) ,S = 1,10,2) 
(1,1=1,5) 



Specifies the first five elements of the 
one-dimension array A, i.e., A(l) , A(2) , 
A(3) , A(4) , A(5) . 

Specifies the elements A(2,l), A(2,3), 
A (2, 5), A(2,7), A(2,9) of array A. 

Specifies the integers 1,2,3,4, and 5. 



As stated previously, implied DO constructs may also contain one or 
more variable names. 

Example 

I, J, B, and C must be integer variables. 

( (A(B,C) ,B=1 ,10) ,C = 1 ,10) ,1 ,J Specifies a 10 X 10 set of elements 

of array A, the location identified 
by I, and the location identified 
by J. 



10-6 



I/O STATEMENTS 



You may also nest implied DO constructs. Nested implied DOs may share 
one or more sets of indexing parameters. 



Example 

( (A(J,K) ,J=1,5) ,D(K) ,K=1,10) 



Specifies a 5 X 10 set of elements 
of array A and the first 10 
elements of array D. 



When you specify an array or set of array elements as either a storage 
or transmitting area for I/O purposes, the array elements involved are 
accessed in ascending order with the value of the first subscript 
quantity varying most rapidly and the value of the last given 
subscript increasing to its maximum value least rapidly. For example, 
the elements of an array dimensioned as TAB(2,3) are accessed in the 
o r di e r : 

TAB (1,1) 
TAB (2,1) 
TAB (1,2) 
TAB (2, 2) 
TAB (1,3) 
TAB (2,3) 



10.3.4.2 Formatted Record Handling - Data is processed under format 
control so that each item in the I/O list is matched with a field 
descriptor in the FORMAT statement. If the end of the FORMAT 
specif ication is reached and more items remain in the I/O list, a new 
line or record is established and the data processing is restarted, 
either : 

1. at the first item in the FORMAT specification or, 

2. (if parenthesized sets of FORMAT specifications exist within 
the FORMAT specification) with the last set within the FORMAT 
specification . 

On input, if the record is exhausted before the data transfers are 
completed,, the remainder of the transfer is completed as if the record 
were extended with blanks. See Section 13.2.2 for more details. 



10.3.5 S pecification of Records for Random Access 

You must identify records to be transferred in a random access mode in 
an I/O statement by an integer expression or variable preceded by an 
apostrophe used as a delimiter, e.g., '101. 



NOTE 

You may use a pound sign (#) in place of 
the apostrophe (')» e.g., both #101 and 
'101 are accepted by FORTRAN-10. 
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10.3.6 List-Directed I/O 



The, use of an asterisk in an I/O statement in place of a FORMAT 
statement number causes the specified transfer operation to be 
"list-directed". In a list-directed transfer, the data to be 
transferred and the type of each transferred datum are specified by 
the contents of an I/O list included in the I/O command used. The 
transfer of data in this mode is performed without regard for column, 
card, or line boundaries. The list-directed mode is specified by the 
substitution of an asterisk (*) for the FORMAT statement reference, 
i.e., f, of an I/O statement. The general form of a list-directed I/O 
statement is 

keyword (u ,*) list 

Example 

READ (5,*) I,IAB,M,L 

You may use list-directed transfers to read data from any acceptable 
input device, including an input keyboard terminal. 

NOTE 

Do not use device positioning commands, 
such as BACKSPACE, SKIP RECORD, etc., in 
conjunction with list-directed I/O 
operations. If you do, the results are 
unpredictable . 

Data for list-directed transfers should consist of alternate constants 
and delimiters. The constants used should have the following 
characters : 

1. Input constants must be of a type acceptable to FORTRAN-10. 
Octal constants, although acceptable, are not. permitted in 
list-directed I/O operations. 

2. Literal constants must be enclosed within single quotes, 
e.g., 'ABLE'. A quoted string which is too long to fit in 
one element of the input list will be placed in adjacent 
elements and will be padded with blanks. If a quoted string 
is being placed in any array and it fills more than one 
element of the array, the remaining elements of the array 
will be unchanged. In this case, it is assumed that the user 
meant for the long string to go into the array and for any 
following data to go into the rest of the input list. If the 
string fits into one element of the array, the array will 
continue to be filled. 

3. Blanks are delimiters; therefore, they are not permitted in 
any but literal constants. 

4. You may omit decimal points from real constants that do not 
have a fractional part. FORTRAN-10 assumes that the decimal 
point follows the rightmost digit of a real constant. 

5. Complex constants must be enclosed in parentheses. 
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Delimiters 
following :: 



in data for list-directed input must comply with the 



1. Delimiters may be either commas or blanks. 

2. Delimiters may be either preceded by or followed by any 
number of blanks, carriage return/line feed characters, tabs, 
or line terminators; any such combination is considered by 
E'ORTRAN-IO as being only a single delimiter. 

3. Represent a null (the complete absence of a datum) by two 
consecutive commas that have no intervening constant (s). You 
may place any number of blanks, tabs, carriage return/line 
feed characters, or end-of-input conditions between the 
commas of a null. Each time you specify a null item in the 
input data, its corresponding list element is skipped 
(unchanged). The following illustrates the effect of a null 
input : 



INPUT Items 



Corresponding 
I/O List Items 



Resulting 
Contents of 
List Items 



101, 'A' ,tab, 'NOl' , 

i i i i 

A , LIT, IAB, NUMBER 



101. A un- NOl 
changed 
IAB 



4. Slashes (/) cause the current input operation to terminate 
even if all the items of the directing list are not filled. 
The contents of items of the directing I/O list that either 
are skipped (by null inputs) or have not received an input 
datum before the transfer is terminated remain unchanged. 
Once the I/O list of the controlling I/O statement is 
satisfied, the use of the / delimiter is optional. 

5. Once the I/O list has been satisfied (values have been 
transferred to each item of the list), any items remaining in 
the input record are skipped. 

Constants or nulls in data for list-directed input may be assigned a 
repetition factor so that an item is repeated. 

The repetition of a constant is written as 

r*K 

where r is an integer constant that specifies the number of times the 
constant represented by K is to be repeated. 

The repetition of a null is written as an integer followed by an 
asterisk . 



Examples 
10*5 



3*' ABLE' 
3* 



represents 5,5,5,5,5,5,5,5,5,5 
represents * ABLE ',' ABLE ',' ABLE ' 
represents null , null , null 
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10.3.7 NAMELIST I/O Lists 

You may define one or more lists by a NAMELIST statement (Chapter 11) . 
Each I/O list defined in a NAMELIST statement is identified by a 
unique (within the routine) 1- to 6-character name that may be 
referenced by one or more READ or WRITE statements. The first 
character of each I/O list name must be alphabetic. By using the 
NAMELIST statement, you eliminate the need for specifying the entire 
I/O list. 

I/O statements that reference a NAMELIST-def ined I/O list cannot 
contain either a FORMAT statement reference or an I/O list. You 
cannot use NAMELIST-controlled I/O operation to transfer octal numbers 
or literal strings. 

You may use only NAMELIST-controlled READ/WRITE statements to bring 
in/write out records formatted in the following manner. Format 
records for NAMELIST-controlled input operations as follows: 

$NAME 01,02,03. . .Dn$ 

where 

1. $ symbols delimit the beginning and end of the record. The 
first $ must be in column 2 of the input record; column 1 
must be blank. 

2. NAME is the name of a NAMELIST-def ined input list. The named 
list identifies the processor storage locations that are to 
receive the data items read from the accessed record. 

3. Dl through Dn are pairs of the form "var iable=value" where 
the value is assigned to the associated variable. These 
items cannot be octal numbers or literal strings. 



NOTE 

Do not use device positioning commands 
such as BACKSPACE, SKIP RECORD, etc., in 
conjunction with NAMELIST-controlled I/O 
operations. If you do, the results are 
unpredictable . 



See Chapter 11 for more information on NAMELIST I/O transfers 



10.4 OPTIONAL READ/WRITE ERROR EXIT AND END-OF-FILE ARGUMENTS 

You may optionally add either or both an error exit or an end-of-file 
argument to the portion in parentheses of any form of the R.EAD and 
WRITE statements when a unit is specified. 

Write the error exit argument as ERR=c where c is a statement number 
in the current program unit. Using this argument terminates the 
current I/O operation and transfers program control to the statement 
identified by the argument if an error is detected. For example, the 
detection of an error during the execution of 

READ(10,7 7,ERR=101)TABLE,I,M,J 
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terminates the input operation and transfers program control to 
statement: 101. See the FORTRAN-10 Library Subroutine ERRSNS (Chapter 
15) to find out how to identify the actual error that occurred. 

When an ERR= transfer occurs, all items on the input list and all 
implied DO indexes on input or output lists become undefined. 

Write the end-of-file argument as END=d , where d is a statement number 
in the current program unit. This branch, when taken, stops the 
current I/O operation and transfers program control to the statement 
identified by the argument. In the example below, the detection of an 
end-of-file condition during the execution of 

READ(10,7 7,END=50)TABLE,I,M,J 

results in the transfer of control to statement 50. 

When an END= transfer occurs, all items on the input list receive the 
value zero and all implied DO indices on input lists become undefined. 

If the END= argument is not present, but an ERR= argument is, an 
end-of-file (EOF) condition is treated as a user-trappable error. If 
neither the ERR= nor the END= argument is present and an end-of-file 
condition is detected, a message is printed, the file is closed, 
program execution is terminated, and control is returned to the 
monitor . 



10.5 READ STAT E MENTS 

READ statements transfer data from peripheral devices into specified 
processor' storage locations. The permitted forms of this type of 
input statment permit READ statments to be used on both sequential and 
random access transfer modes for formatted, unformatted, 
list-directed, and NAMELIST-controlled data transfers. 



10.5.1 Sequen tial Formatted READ Transfers 

Descriptions of the READ statements that may be used for the 
sequential transfer of formatted data follow: 

1. Form: READ (u,f)list 

Use: Input data from logical unit u, formatted 
according to the specification given in f, into 
the processor storage locations identified in 
input list. 

Example: READ ( 10 , 555) TABLE ( 10 , 20) , ABLE , BAKER, CHARL 

2. Form: READ(u,f) 

Use: Input the data from logical unit u directly into 
either a Hollerith (H) field descriptor or a 
literal field descriptor given within the format 
specifications of the referenced FORMAT statement. 
If the referenced FORMAT statement does not 
contain either of the foregoing types of format 
field descriptors, the input record is skipped. 
If a required field descriptor is present, its 
contents are replaced by the input data. 

Example: READ(15,101) 
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3 . Form 
Use: 



READ f 

Input 

reader 

descr i 

within 

FORMAT 

statem 

types 

record 

is pre 

data. 



the data from the READ default device (card 

) directly into either a Hollerith (H) field 

ptor or a literal field descriptor given 

the format specifications of the referenced 

statement. If the referenced FORMAT 

ent does not contain either of the foregoing 

of format field descriptors, the input 

is skipped. If a required field descriptor 

sent, its contents are replaced by the input 



Example: READ 66 

4. Form: READ f,list 

Use: Input the data from the READ default device (card 
reader) into the processor storage locations 
identified in the input list. The input data is 
formatted according to the specifications given in 



Example 



READ 15, ARRAY (20,30) 



10.5.2 Sequential Unformatted Binary READ Transfer 

You may use only the following form of the READ statement for 
sequential transfer of unformatted input FORTRAN binary data: 



the 



Form 
Use : 



READ (u)list 

Input one logical record of data from logical unit 
u into processor storage as the value of the 
location identified in list. You may read only 
binary files output by a FORTRAN-10 unformatted 
WRITE statement by this type of READ statement. 



NOTE 

If you use the form READ (u) , one 
unformatted input record will be skipped. 



Example: READ (10) BINFIL (10,20,30) 



10.5.3 Sequential List-Directed READ Transfer 

You may use the following forms of the READ statements to control a 
sequential, list-directed input transfer: 



1. Form 



Use 



Example 



READ(u,*) list 

Read data from logical device u into processor 
storage as the value of the locations identified 
in list. Each input datum is converted, if 
necessary, to the type of its assigned list 
variable . 

READ(10,*) IARY(20,20) ,A,B,M 
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2. Form: READ *,list 

Use: Read the data from the READ default device (card 
reader) into the processor storage locations 
identified in the input list. Each input datum is 
converted/ if necessary, to the type of its 
assigned list variable. 

Example: READ * ,ABEL ( 10 , 20) , I , J ,K 



10.5.4 S equential NAMELIST-Controlled READ Transfers 

You may use only the following form of the READ statement to initiate 
a sequential NAMELIST-controlled input transfer: 

Form: READ(u,N) 

Use: Read data from logical unit u into processor 
storage as the value of the locations identified 
by the NAMELIST input specified by the name N. 
The input data is converted to the type of 
assigned variable if type conflicts occur. Only 
input files that contain records formatted and 
identified for NAMELIST operations (Paragraph 
10.3.7) may be read by READ statements of this 
form . 



10.5.5 R andom Access For matted READ Transfers 

You may use only the following form of the READ statement to initiate 
a random access formatted input transfer: 

Form: READ (u#R,f)list 

Use: Input data from record R of logical unit u. 
Format each input datum according to the format 
specifications of f and place into processor 
storage as values of the locations identified in 
list. Only disk files that have been set up by 
either an OPEN or DEFINE FILE statement may be 
accessed by a READ statement of this form. (If 
record R has not been written, an error results.) 

Example: READ ( 1#20 , 100) I, X(J) 



10.5.6 Random Access Unformatted READ Transfers 

You may use only the following form of the READ statement to initiate 
a random access unformatted input transfer: 
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Form: READ (u#R)list 

Use: Input data from record R of logical unit u. Place 
the input data into processor storage as the value 
of the locations identified in list. Only binary 
files that have been output by an unformatted 
random access WRITE statement may be accessed by a 
READ statement of this form. (If record R has not 
been written, an error results.) 

Example: READ (1#20) BIiSIFIL 

Read record number 20 into array BINFIL. 



MOTE 

If the form READ (u#R) is used, it will 
cause logical input record R to be 
skipped . 



10.6 SUMMARY OF READ STATEMENTS 

Table 10-2 summarizes the various forms of the READ statements. 



Table 10-2 
Summary of READ Statements 



Type of Transfer 


Transfer Mode 


Sequential 


Random Access 


Formatted 

Unformatted 
List-Directed 
NAME LI ST 


READ(u, f ) list 
READ(u, f) 
READ f,list 
READ f 

READ(u) list 
READ(u) 

READ(u,*) list 
READ *,list 

READ(u,N) 


READ(u#R,f ) list 

READ(u#R) list 
READ(u#R) 


Note: You may include the ERR=c and END=d arguments in any of 
the above READ statements. When included, the 
foregoing arguments must be last, e.g., READ 
(10,20,END=101,ERR=500) ARRAY ( 50 , 100) . 



10.7 REREAD STATEMENT 

The REREAD statement causes the last record read from the last active 
input device to again be accessed and processed. 
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You cannot use the REREAD feature of FORTRAN-10 until an input (READ) 
transfer from a file has been accomplished. If you use REREAD 
prematurely, an error results. 

Once a record has been accessed by a formatted READ statement, the 
record transferred may be reread as many times as desired. In a 
formatted transfer, you may use the same or new format specification 
by each successive REREAD statement. 



You may use the REREAD statement only for sequential 
transfers. The form of the REREAD statement is: 



formatted data 



Form 



REREAD f,list 



Use: 



Reread the last record read during the last 
initiated READ operation and input the data 
contained by the record into the processor storage 
locations specified in the input list. Format the 
data read according to the format specifications 
given in statement f. 



Example: DIMENSION ARRAY ( 10 , 10) , FORMA ( 10 , 10) , FORMS ( 10 , 10) , 
1 FORMC(10,10) 
90 READ (16 ,100) ARRAY 



100 FORMAT (■ 



110 REREAD 100,FORMA 
115 REREAD 150,FORMB 
120 REREAD 160,FORMC 



150 FORMAT (■ 
16 FORMAT (• 



In the above sequence, statement 90 inputs data formatted according to 
statement 100 into the array ARRAY. Statement 110 reads the record 
read by statement 90 and inputs the data formatted as in the initial 
READ operation into the array FORMA. 



Statement 115 reads the record read by statement 90 and inputs 
data formatted according to statement 150 into the array FORMB. 



the 



Statement 120 reads the record read by statement 90 and inputs 
data formatted according to statement 160 into the array FORMC . 



the 



NOTE 

If you try to REREAD a record input from 
the teletype, you will get either the 
current record or the last 150 
characters of the current record, 
whichever is the lesser. 
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10.3 WRITE STATEMENTS 



WRITE statements transfer data from specified processor storage 
locations to peripheral devices. The various forms of the WRITE 
statement enable it to be used in sequential, append, and random 
access transfer modes for formatted, unformatted, list-directed, and 
NAMELIST-controlled data transfers. 



10.3.1 Sequential Formatted WRITE Transfers 

You may use the following forms of the WRITE statement for the 
sequential transfer of formatted data: 

1. Form: WRITE ( u , f) 1 is t 

Use: Output the values of the processor storage 
locations identified in list into the file 
associated with logical unit u. Convert and 
arrange the output data according to the 
specifications given in f. 

Example: WRITE ( 06 , 500) OUT ( 10 , 20) ,A,B 

2. Form: WRITE f,list 

Use: Output the values of the processor storage 
locations identified in list to the default device 
(line printer) . Convert and arrange the output 
data according to the specifications given in f. 

Example: WRITE 10 , SEND ( 5 , 10) , A , B ,C 

3. Form: WRITE f 

Use: Output the contents of any Hollerith (H) or 

literal ('') field descr iptor ( s) contained by f to 

the default device (line printer). If neither of 

the foregoing types of field specifications is 
found in f, no output transfer is performed. 

Example: WRITE 10 



10.3.2 Sequential Unformatted Binary WRITE Transfer 

You may use the following form of the WRITE statements for the 
sequential transfer of unformatted data: 

Form: WRITE (u)list 

Use: Output the values of the processor storage 
locations identified in list into the file 
associated with logical unit u. No conversion or 
arrangement of output data is performed. 

Example: WRITE (12) ITAB(2 0,20) , SUMS ( 1 , 5 , 2) 
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10.8.3 S equential List-Directed WRI TE Transfers 

You may use the following form of the WRITE statement to initiate a 
sequential list-directed output transfer. 

Form: WRITE (u,*) list 

Use: Output the values of the processor storage 
locations identified in list into the file 
associated with logical unit u. The conversion of 
each datum from internal to external form is 
performed according to the type of the list 
variable from which the datum is taken. 

Example: WRIT E ( 1 2 , * ) C , X , Y , ITAB (10,10) 



10.3.4 S equential NAMELI ST-Con tro 1 l ed WRITE Transfers 

You may use only the following form of the WRITE statement to initiate 
a sequential 'NAMELIST output transfer. 

Form: WRITE (u,N) 

Use: Output the values of the processor storage 

locations identified by the contents of the 

NAMELIST-def ined list specified by name "d into the 
file associated with logical unit u. 

Example: WRITE (12 ,NMLST) 



10.8.5 Random Access Formatted WRITE Transfers 

You may use only the following form of the WRITE statement to initiate 
a random access type formatted output transfer: 

Form: WRITE (u#R, f) list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
record R of the file associated with logical 
device u. Only disk files that have been set up 
by either an OPEN statement or a call to the 
subroutine DEFINE FILE may be accessed by a WRITE 
transfer of this form. The data transferred will 
be formatted according to the specifications given 
in f. Only those records that have been 
specifically written are available to be read. 



10.3.6 Random Access Unformatted WRITE Transfers 

You may use only the following form of the WRITE statement to initiate 
a random access unformatted output transfer: 

Form: WRITE (u#R) list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
record R of the file associated with logical 
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device unit u. Only disk files that have been set 
up by either an OPEN or a call to the DEFINE FILE 
subroutine may be accessed by a WRITE transfer of 
this form. Only those records that have been 
specifically written are available to be read. 



10.9 SUMMARY OF WRITE STATEMENTS 

Table 10-3 summarizes the various forms of the WRITE statements. 



Table 10-3 
Summary of WRITE Statements 



Type of Transfer 


Transfer Mode 


Sequential 


Random Access 


Formatted 


WRITE(u, f) list 
WRITE f,list 
WRITE f 


WRITE(u#R,f) list 


Unformatted 


WRITE(u) list 


WRITE(u#R) list 


List-Directed 


WRITE(u,*) list 




NAMELIST-con trolled 


WRITE (u,N) 




Note: You may inc 


lude the ERR=c and 


END=d arguments in 


any WRITE 


statement which 


has a unit number; 


however , th 


ey must be last. 





10.10 ACCEPT STATEMENT 

The ACCEPT statement enables you to input data via either a terminal 
keyboard or a batch control file directly into specified processor 
storage locations. Use this statement only in the sequential transfer 
mode for the formatted transfer of inputs from your terminal keyboard 
during program execution. The following paragraphs describe the 
permitted forms of the ACCEPT statement. 



10.10.1 Formatted ACCEPT Transfer: 



Use the following forms of the ACCEPT statement 
transfer of formatted data. 



for the sequential 



1. Form 
Use : 



ACCEPT f,list 

Input data character-by-character from the user's 
terminal into the processor storage locations 
identified by the contents of list. Format the 
input data according to the format specifications 
given in f. 



Example 



ACCEPT 101,LINE(73) 
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2. Form: ACCEPT *,list 

Use: Input data character-by-character from the user's 
terminal into the processor storage locations 
identified by the contents of list. Convert the 
input characters, where necessary, to the type of 
its assigned list variable. 

Example: ACCEPT * , IAB , ABE , KAB,MAR 



10.10.2 A CCEPT Transfers Into FORMAT Statements 

You may use the following form of the ACCEPT statement to input data 
from your terminal keyboard directly into a specified FORMAT statement 
if the FORMAT statement has either or both a Hollerith (H) , or a 
literal ('s') field descriptor. If the referenced statement has 
neither of the foregoing descriptors, the input record is skipped. 

Form: ACCEPT f 

Use: Replace the contents of the appropriate fields of 
statement f with the data entered at the user's 
terminal keyboard. 

Example: ACCEPT 101 



10.11 PRINT STATE MENT 

The PRINT statement causes data from specified processor storage 
locations to be output on the standard output device (line printer) . 
Use this statement only for sequential formatted data transfer 
operation; write it in either of the three following forms: 

1. Form: PRINT f,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the line printer. The values output are to be 
formatted and arranged according to the format 
specifications given in f. 

Example: PRINT 55 , TABLE ( 10 , 20) , I , J ,K 

2. Form: PRINT *,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the line printer. The conversion of each datum 
from internal to external form is performed 
according to the type of the list variable from 
which the datum is taken. 

Example: PRINT * ,C , X , Y , ITAB ( 10 , 10) 

3. Form: PRINT f 

Use: Output the contents of the FORMAT statement 
Hollerith (H) or literal field descriptors to the 
line printer. If neither an H nor a literal field 
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descriptor is present in the referenced FORMAT 
statement, no operation is performed. 

Example: PRINT 55 

The second form of the PRINT statement is particularly useful when 
employed with ACCEPT f statements to cause desired data (comments or 
headings) to be inserted into reports at program execution time. 

Example 

The sequence 

5 5 FORMAT (' END OF ROUTINE') 



PRINT 5 5 

results in the printing of the phrase "END OF ROUTINE" on the line 
o r i n t e r . 



10.12 PUNCH STATEMENT 

The PUNCH statement causes data from specified processor storage 
locations to be output to the system standard paper tape punch. Use 
this statement only for sequential formatted data transfers; write it 
in one of the three following forms: 

1. Form: PUNCH f,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the standard paper tape punch unit. The values 
output are to be formatted and arranged according 
to the format specifications given in f. 

Example: PUNCH 10 , TABLE ( 10 , 20) , I , J , K 

2. Form: PUNCH *,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the paper tape punch unit. The conversion of each 
datum from internal to external form is performed 
according to the type of the list variable from 
which the datum is taken. 

Example: PUNCH * , I , A , B , M ,TAB ( 5 , 10) 

3. Form: PUNCH f 

Use: Output the contents of the referenced FORMAT 
statement Hollerith (H) or literal field 
descriptors to the standard paper tape punch unit. 
If neither an H nor a literal field descriptor is 
present in the referenced FORMAT statement, no 
operation is performed. 

The third form of the PUNCH statement is particularly useful when 
employed in conjunction with an ACCEPT f statement to cause 
user-entered data (comments or headings) to be added to an output file 
at program execution time. 
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10.13 TYPE STATEMENT 

The TYPE statement causes data from specified processor storage 
locations to be output to your (control) terminal printing or display 
device. Use this statement only for sequential formatted data 
transfers; write it in one of the following forms: 

1. Form: TYPE f,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the user's terminal. The values output are to be 
formatted according to the format specifications 
given in f. 

Example: TYPE 101 , TABLE (10 ,20) I , J, K 

2. Form: TYPE f 

Use: Output the contents of the referenced FORMAT 
statement Hollerith (H) or literal field 
descriptors to the user's terminal device. If the 
referenced FORMAT statement does not contain 
either an H or a literal field descriptor, no 
operation is performed. 

Example: TYPE 101 

3. Form: TYPE *,list 

Use: Output the values of the processor storage 
locations identified by the contents of list to 
the user's terminal. The conversion of each datum 
from internal to external form is performed 
according to the type of the list variable from 
which the datum is taken. 

Example: TYPE * , IAB ( 1 , 5) ,A,B 



10.14 FIND STATEMENT 

The FIND statement does not initiate a data transfer operation; use 
it during random access read operations to locate the next record to 
be read while the current record is being input. The program does not 
have access to the "found" record until the next READ statement is 
executed . 

The form of the FIND statement is 

FIND(u#R) 

Example : 

In the sequence 

READ(G1#90) 
FIND(01#101) 



READ(01#10i; 
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the FIND statement will locate record #101 on device 01 after record 
90 has been retrieved. Record #101 is not processed until the second 
READ statement in the sequence is executed. 



10.15 ENCODE AND DECODE STATEMENTS 

Use the ENCODE and DECODE statements to perform sequential formatted 
data transfer between two defined areas of processor storage, i.e., an 
I/O list and a user-defined buffer; no peripheral I/O device is 
involved in the operations performed by these statements. 

The ENCODE statement transfers data from the variables of a specified 
I/O list into a specified storage area. ENCODE operations are similar 
to those performed by a WRITE statement. 

The DECODE statement transfers data from a specified storage area into 
the processor storage locations identified by the variables of an I/O 
list. DECODE operations are similar to those performed by a READ 
statement . 

Write the ENCODE and DECODE statements in the following forms: 

ENCODE(c,f ,s) list 
DECODE (c,f ,s) list 

where 

c specifies the number of characters to be in each internal 
storage area. This argument may be an integer, an integer 
expression, or either a real or double precision expression that 
is converted to an integer form. 

NOTE 

5 characters per storage location are stored in the 
buffer without regard to the type of variable given as 
the starting location. 

f specifies either a FORMAT statement or an array that contains 
format specifications. 

s specifies the address of the first storage location that is to 
be used in the transfer operations. When multiple records are 
specified by the format being used, the succeeding records follow 
each other in order of increasing storage addresses. 

list specifies an I/O list, of the standard form (Paragraph 
10.3.4) . 

When multiple records are stored by ENCODE, each new record starts on 
a new storage location boundary rather than there being a CRLF 
inserted between records. 
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10.15.1 ENCODE Statement 

A description of the form and use of the ENCODE statement follows: 

Form: ENCODE (c ,f,s) list 

Use: The values of the processor storage locations 
identified by the contents of list are converted 
to ASCII character strings according to the format 
specifications given in f. The converted 
characters are then written into the destination 
area starting at location s. If you try to 
transfer more characters than the specified area 
can contain, the excess characters are ignored. 

If you transfer fewer characters than specified 
for the record size, the empty character locations 
are filled with blanks. 

Example: ENCODE ( 500 , 101 , START) TABLE 

10.15.2 DECODE Statement 

A description of the form and use of the DECODE statement follows: 

Form: DECODE (c ,f,s) list 

Use: The character strings are taken starting at 
location s, converted (decoded) according to the 
format specifications given in f, and stored as 
the values of the processor storage locations 
identified in list. 

If the format. specification requires more 
characters from a record than are specified by c, 
the extra characters are assumed to be blanks. If 
fewer characters are required from a record than 
are specified by c, the extra characters are 
ignored . 

Example : DECODE (50 , 50 , START) GET (5,10) 



10.15.3 Example Of ENCODE/DE CO DE Operatio n s 

The following program illustrates the use of both the ENCODE and 
DECODE statements: 

Example 

Assume the contents of the variables to be as follows: 

A(l) contains the floating point number 300.45 

A(2) contains the floating point number 3.0 

J is an integer variable 

B is a 4-word array of indeterminate contents 

C contains the ASCII string 12345 

(1) DO 2 J=l,2 

(2) ENCODE(16 ,10,B) J,A(J) 

(3} 10 FORMAT ( IX, 2HA( ,11, 4H) = ,F8,2 
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(4) TYPE 11,B 

(5) 11 FORMAT ( 4 A5) 
(5) 2 CONTINUE 

(7) DECODE(5,12,C) B 

(8) 12 FORMAT (3F1.0, IX, Fl.O) 

(9) TYPE 13, B 

(10) 13 FORMAT(4F5.2) 

(11) END 

Array B can contain 20 ASCII characters. The result of the ENCODE 
statement after the first iteration of the DO loop is: 

B(l) = 'A(l) ' Typed at line 4 as 

B(2) = 

B(3) = '300.4', A(l) = 300.45 

B(4) = '5 

The result after the second iteration is: 

3(1) = 'A(2) ' Typed at line 4 as 

B(2) = '= ' 

B(3) = '3.0 ' A(2) = 3.0 

B(4) = ' ' 

The DECODE statement: 

1. Extracts the digits 1, 2, and 3 from C 

2. Converts them to floating point values 

3. Stores them in B(l) , B(2) , and B(3) 

4. Skips the next character (the digit 4) 

5. Extracts the digit 5 from C 

6. Converts it to a floating-point value, and, 

7. Stores it in B(4) 

The output from the TYPE statement at line 9 is: 
1.00 2.00 3.00 4.00 5.00 
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10.16 S UMMARY OF I/O ST ATEMENTS 

Table 10-4 on pages 10-26 and 10-27 presents a summary of all 
permitted forms of the FORTRAN-10 I/O statement. 
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Table 10-4 
Summary of FORTRAN-1C I/O Statements 



I/O Statements 



formatted 



Transfer Format Control 



Unformatted 



Namelist 



List-Directed 



READ 

Sequential 



Random 

WRITE 

Sequential or 
Append ( 1) 



Random ( 2) 

REREAD 

Sequential 

FIND 

Random-only 

ACCEPT 

Sequential only 



READ (u,f)list 
READ f,list 
READ f 

READ (u#R,f)list 



WRITE (u,f)list 
WRITE f,list 
WRITE f 

WRITE (u#R,f)list 
REREAD f,list 
FIND (U#R) 



ACCEPT f,list 
ACCEPT f 



READ(u) list 

READ(u#R)list 

WRITE(u) list 

WRITE (u#R)list 



READ(u,N) 



WRITE (u,N) 



FIND (u#R) 



READ(u,*) list 
READ *,list 



WRITE (u,*) list 



ACCEPT *,list 



1. You must use an OPEN statement to set up an append mode. 

2. You must use either the OPEN statement or a call to the DEFINE 
FILE subroutine to set up a random access mode. 



Table 10-4 (Cont.) 
Summary of FORTRAN-10 I/O Statements 




Formatted 



Transfer Format Control 



Unformatted 



Namelist 



PRINT 

Sequential only 



PRINT f,list 
PRINT f 



PUNCH | 

Sequential only \ PUNCH f,list 
• PUNCH f 



Lege no 
u 
f 



iISl 



List-Direction 



PRINT *,list 



PUNCH *,list 



logical unit number 
statement number cf FORMAT 
statement or name of array 
containing format information 
I/O lis t 

name of specific NAMELIST 
I/O list 



symbol used to specify list-directed I/O 

operator 

variable which specifies logical record 

position 

number of characters oer internal record 

address of the first storage location to 

be used 



TYPE 

Sequential only 


TYPE f,list 
TYPE f 






i 
TYPE *,list \ 

i 


ENCODE 

Sequential only 


ENCODE (c,f,s)list 








i 
j 


DECODE 

Sequential only 


DECODE (c,f,s)list 








i 
1 



CHAPTER 11 
NAMELIST STATEMENTS 



11.1 INTRODUCTION 

Use the NAMELIST statement to define I/O lists similar to those 
described in Chapter 10 (Paragraph 10.3.4). Reference defined 
NAMELIST I/O lists in special forms of the READ and WRITE statements 
to provide a method of transferring and converting data without 
referencing format specifications or specifying an I/O list in the I/O 
statement . 



11.2 NAMELIST STATEMENT 

Write NAMELIST statements in the following form: 

NAMELI3T/N1/A1,A2, . . . , An/N2/Bl , B2 , . . . ,Bn/Nn/. . . 

where 

/Nl/ through /Nn/ represents names of individual lists. 

Always enclose the name with slashes 
(/N/) 

Al through An are the items of the lists identified, 

and respectively, by names Nl and N2. A 

Bl through Bn list may contain one or more variable, 

array, or array element names. Delimit 
the items of a list by commas. Each 
list of a NAMELIST statement is 
identified (and referenced) by the name 
immediately preceding the list. 

Example 

DIMENSION C(2,4) 
NAMELI3T/TABLE/A , B , C/SUMS/TOTAL 

In the foregoing example, the name TABLE identifies the list 
A,B,C(2,4), and the name SUMS identifies the list consisting of the 
array TOTAL. 

Once a list has been defined in a NAMELIST statement, one or more I/O 
statements may reference its name. 
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The rules for structuring a NAMELIST statement are: 

1. You may use a maximum of six characters for a NAMELIST name. 

2. You must begin it with an alphabetic character. 

3. You must enclose it in slashes. 

4. The NAMELIST name must precede the list of entries to which 
it refers. 

5. The NAMELIST name must be unique within the program. 

6. You may define a NAMELIST name only once, and you must define 
it by a NAMELIST statement. Once defined, you may use a name 
only in READ or WRITE statements. 

7. You must define the NAMELIST name in advance of the I/O 
statement in which it is used. 

8. You cannot use a variable used in a NAMELIST statement as a 
dummy argument in a SUBROUTINE definition. 

9. You must define any dimensioned variable contained in a 
NAMELIST statement in an array declaration statement 
preceding the NAMELIST statement. 



11.2.1 NAMELIST-Controlled Input Transfers 

During input (READ) transfer operations in which a NAMELIST-def ined 
name is referenced, the records are read until a record is found that 
begins with the sequence ' $' (a space followed by a dollar sign) 
followed by the referenced name. The dollar sign must be the second 
character in the record; the first character in the record must be a 
blank. Once the proper symbol-name combination is found, the data 
items following it are transferred on a one-to-one basis to the 
processor storage locations identified by the contents of the 
referenced list. The input data is always converted to the type of 
the list variable when there is a conflict of types. The input 
operation continues until another $ symbol is detected. If variables 
appear in the NAMELIST record that do not appear in the NAMELIST list, 
an error condition will occur. Data items of records to be input 
(read) using NAMELIST-def ined lists must be separated by commas and 
may be of the following form: 

V=K1,K2, . . . ,Kn 

where 

1. V may be a variable, array, or array element name. 

2. Kl through Kn are constants of type integer, real, double 
precision, complex (written as (A,B) where A and B are real), 
or logical (written as T for true or F for false) . A series 
of identical constants may be represented as a single 
constant preceded by a repetition factor (5*5 represents 
5,5,5,5,5) . 
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In transfers of this type, logical and complex constants must be 
equated to variables of their own type. Other type constants (real, 
double-precision, and integer) may be equated to any other type of 
variable (except logical or complex) , and will be converted to the 
variable type. For example, assume A is a 2-dimensional real array, E 
is a 1-dimensional integer array, C is an integer variable, and thai 
the input data is as follows: 

$FRED A(7,2}=4, B=3,6*2.8, C=3.32$ 

A READ statement referring to the NAMELIST defined name FRED will 
result in the following: The integer 4 will be converted to floating 
point and placed in A(7,2) . The integer 3 will be placed in B(l) , and 
the integer 2 (converted) will be placed in B ( 2) ,B ( 3) , . . . ,B (7) . The 
floating point number 3.32 will be converted to the integer 3 and 
placed in C. 

NOTE 

"&" may be used instead of "$" in 
NAMELIST-controlled input. 



11.2.2 NAMELIST-Controlle d Output Transfers 

When a WRITE statement refers to a NAMELIST-def ined name, all 
variables and arrays and their values belonging to the named list are 
written out, each according to its type. Arrays are written out by 
columns. Output data is written so that: 

1. The fields for the data will be large enough to contain all 
the significant digits. 

2. The output can be read by an input statement referencing a 
NAMELIST- defined list. 

For example, if JOE is a 2 X 3 real array, the statement 

NAMELI3T/NAMl/J0E,Kl, ALPHA 
WRITE (u,NAMl) 

generates the following form of output: 

Column 



$NAME1 

JOE= -6.750000 , 0.2340000E-04, 680.0000 , -17.80000 

O.OOOOO0OE-01, -1970000. , Kl= 73.10000 

ALPHA= 3.000000 , $ 



NOTE 

Do not use device positioning commands 
such as BACKSPACE, SKIP, RECORD, etc., 
with NAMELIST-controlled I/O operations. 
If you do, the results are 



unpredictable . 
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CHAPTER 12 
FILE CONTROL STATEMENTS 



12.1 INTRODUCTION 

This chapter describes the OPEN and CLOSE statements. 

They are file control statements used to set up files and establish 
parameters for I/O operations and to terminate I/O operations. 



12.2 OPEN AND CLOSE STATEMENTS 

Both the OPEN and CLOSE statements are unique to FORTRAN-10; they 
both use the same format and have the same options and arguments. 

The OPEN statement enables you to define all of the important aspects 
of each desired data transfer operation; it provides an extensive 
list of required and optional arguments that define in detail: 

1. the name and location of the data file 

2. the type of access required 

3. the data format within the file 

4. the protection code(l) to be assigned an output data file 

5. the disposition of the data file 

6. data file record, block and file sizes 

7. a data file version identifier 

In addition, a DIALOG argument is provided that permits you to 
establish a dialogue mode of operation when the OPEN statement 
containing it is executed. In a dialogue mode, interactive 
terminal/program communication is established. This enables you to 
define, redefine, or defer the values of the optional arguments 
contained by the current OPEN statement during program execution. 

The general form of the OPEN statement is: 

OPEN (Argl ,Arg2 , . . . , Argn) 



1. Refer to Chapter 8 of the DECsystem-10 Monitor Calls Manual , 
DEC-10-OMCMA-B-DN3 , for a description of file access protection codes. 
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Use the CLOSE statement in the termination of an I/O operation to 
dissociate the I/O device being used from the active file and 
file-related information, and to restore the core occupied by I/O 
buffers and other transfer-related operations. All required device 
dependent termination functions are also performed on the execution of 
a CLOSE statement. Note that the CLOSE statement can change the name, 
protection, directory, and disposition of the file being closed. 

Once a CLOSE statement has been executed, you must use another OPEN 
statement to regain access to the closed file. 

The general form of the CLOSE statement is: 

CLOSE (Argl. , Arg2 . , . . . , Argn) 

CAUTION 

If you use a filename argument in a 
CLOSE statement that is different from 
the current filename, the file will be 
renamed . 



12.2.1 Options for OPEN and CLOSE Statements 

The options and their arguments, which you may use in both the OPEN 
and CLOSE statements, are: 

1. UNIT This option is required; it defines the 

FORTRAN I/O unit number to be used. FORTRAN 
devices are identified by assigned decimal 
numbers within the range 1-63; however, UNIT 
may be assigned an integer variable or 
constant. The general form of this argument 
is: 

UNIT= An integer variable or constant 

NOTE 

FORTRAN-10 standard logical unit 
assignments are described in Chapter 10 
(Table 10-1). The range, i.e., 1-63, of 
the possible UNIT numbers is an 
installation-defined parameter. 

2. DEVICE This option may specify either the physical 

or the logical name of the I/O device 
involved. (A logical name always takes 
precedence over a physical name.) The DEVICE 
arguments may specify I/O devices located at 
remote stations, as well as logical devices. 
The general form of the DEVICE argument is: 

DEVICE= A literal constant or variable 
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3. ACCESS 



If you omit this option, the logical name u 
(where u is the decimal unit number) is 
tried; if this is not successful , the 
standard (default) device is attempted. 

ACCESS describes the type of input and/or 
output statements and the file access mode to 
be used in a specified data transfer 
operation. You may assign ACCESS any one of 
six possible names, each of which specifies a 
specific type of I/O operation. The 
assignable names and the operations specified 
are : 



a. SEQIN The specified data file is 
to be read in sequential 
access mode. 



b. SEQOUT 



SEQINOUT 



The specified data file is 
to be written in a 
sequential access mode. 

The specified data file may 
be first read, then written 
(READ/WRITE sequence) 
record-by-record in a 
sequential access mode. 
When you specify SEQINOUT, a 
WRITE/READ sequence is 
illegal. If no access is 
specified, SEQINOUT is 
assumed . 



RANDOM The specified data file may 
be either read or written 
into, one record at a time. 
In a random access mode of 
operation, the relative 
position of each record is 
independent of the previous 
READ or WRITE statement; 
all records accessed must 
have a fixed logical record 
length. The RECORD SIZE 
option is required for 
random access operations. 
You must specify a disk 
device when the random 
argument is used. 

RANDIN This argument enables you to 
establish a special, 
read-only random access mode 
with a named file. During a 
RANDIN mode, you may read 
the named file 
simultaneously with other 
users who have also 
established a RANDIN mode 
and with the owner of the 
file. The use of RANDIN 
enables a data base to be 
shared by more than one user 
at the same time. 
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f. APPEND The record specified by a 
corresponding WRITE 

statement is to be added to 
the logical end of a named 
file. You must close and 
then reopen the modified 
file to permit it to be 
read . 

The general form of the 
ACCESS argument is: 

'SEQIN' 
'SEQOUT' 
'SEQINOUT' 
ACCESS= 'RANDOM 1 
'RANDIN' 
'APPEND' 

variable (set to 
literal) 

4. MODE This option defines the character set of an 

external file or record. The use of this 
argument is optional; if you do not use it, 
one of the following is assumed: 

a. ASCII for a formatted I/O file transfer 

b. Binary for an unformatted I/O file 
transfer . 



NOTE 

Refer to the DECsystem-10 Monitor Calls 
Manual for a detailed description of the 
data modes given in the following list. 



You must use one of the following character 
set specifications with the MODE argument: 

Literal Action Indicated 

'ASCII' Specifies an ASCII character set. 

'BINARY' Specifies data formatted as a 
FORTRAN binary data file. 

'IMAGE' Specifies an image (I) mode data 
transfer for the associated READ or 
WRITE statements. IMAGE is an 
unformatted binary mode. 

'DUMP' The data file to be transferred is 
to be handled in a DUMP mode of 
operation. 

The general form of the MODE argument is: 

'ASCII' 
'BINARY' 
MODE= 'IMAGE' 
'DUMP' 
variable (set to literal) 
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5. DISPOSE This option specifies an action to be taken 

regarding a file at close time. When used, 
DISPOSE must be either a variable or one of 
the following literals: 

Literal Action Indicated 

'SAVE' Leave the file on the device. 

'DELETE' If the device involved is either a 
DECtape or disk, remove the file; 
otherwise, take no action. 

'PRINT' If the file is on disk, queue it for 
printing; otherwise, take no 
action. 

'LIST' If the file is on disk, queue it for 
printing and delete the file; 
otherwise take no action. 

'PUNCH' Paper tape punch output. 

'RENAME' Change filename. (This is redundant 
if a new filename is given.) 

If the DISPOSE argument is not given, the 
argument DISPOSE = 'SAVE' is assumed. The 
general form of the DISPOSE argument is: 

■ SAVE ' 
'DELETE' 
DI3P0SE= 'PRINT' 
'LIST' 
'PUNCH' 
' RENAME ' 
variable (set to literal) 

6. FILE This option specifies the name of the file 

involved in the data transfer operation. 
FILE must be either a literal, 
double-precision, complex, or 

single-precision variable. Single-precision 
variables are assumed to contain a 1- to 
5-character file specification; 
double-precision variables permit 
10-character file specification. The format 
is a 1- to 6-character filename optionally 
followed by a period and a 0- to 3-character 
extension. Any excess characters in either 
the name or extension are ignored. If you 
omit the period and extension, the extension 
.DAT is assumed; if just the extension is 
omitted, a null extension is assumed. So if 
you want a filename without an extension, 
remember to use the period. 

If a filename is not specified or is zero, a 
default name is generated that has the form 

FORxx.DAT 

where xx is the FORTRAN logical unit number 
(decimal) or is the logical unit name for the 
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default statements ACCEPT, PRINT, PUNCH, 
READ, or TYPE. The general form of a FILE 
argument is: 



FILE= 



A literal or variable set to a 
literal 



PROTECTION 



DIRECTORY 



This option specifies a protection code 
assigned the data file being transfe 
The protection code determines the leve 
access to the file that three oos 
classes of users (owner, member, or o 
will have. PROTECTION may be a 3-digit 
literal or a variable; if the argumen 
assigned a zero value or is not given 
default protection code established for 
DECsystem-10 installation is used, 
general form of the PROTECTION argument 



to be 
r red . 
1 of 
sible 
ther) 
octal 
t is 
, the 
the 
The 
is : 

or 



PROTECTION^ 3-digit octal constant 
integer variable 



Use this option for disk files only. It 
specifies the location of the user file 
directory (UFD) or the sub-file directory 
(SFD) that contains the file specified in the 
OPEN statement. A directory identifier may 
consist of either: 



a. Your project programmer number that 
identifies the UFD, for example, 10,7, or 

b. A UFD/3FD directory path specification. A 
path specification lists the UFD and the 
names of its SFDs that form a path to the 
desired SFD. For example, the following 
path specification identifies the path 
leading to SFD 1234: 

10,7,SFDA,SFDB,1234 



NOTE 



Refer to the DECsystem-10 Monitor Calls 
Manual for a complete description of 
and 



directories 
structures. 



multilevel directory 



The general form of a DIRECTORY argument is: 

DIRECTORY= Literal or array name 
containing directory path 
specification 

You may also establish an array containing 
the directory specification as its elements 
and reference the array in the DIRECTORY 
argument. Single-precision arrays permit 
5-character directory names to be used; 
double-precision arrays permit 6-character 
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names to be used. You must use a zero (0) 
entry to terminate a directory path 
specification given in an array. 

Examples of the use of single- and 
double-precision arrays in an OPEN statement 
DIRECTORY specification follow: 

a. Single-Precision Array 

OPEN (UNIT = 5, DIRECTORY = PATH,...) 

where PATH and its elements are: 

DIMENSION PATH (5) 

PATH (1)= "10 ! (PROJECT NUMBER) 

PATH (2)= "7 ! (PROGRAMMER NUMBER) UFD 

PATH (3)='SFDA' Names of sub-file 

PATH (4)= f SFDB' directories (SFD's) 

PATH (5)=0 

b. Double-Precision Array 

OPEN (UNIT=5, DIRECTORY = PATH,...) 

where PATH and its elements are: 

DOUBLE PRECISION PATH (5) 

PATH (1)=" 000000000010000000000007 

! (PROJ. ,PROG. NUMBERS=UFD) 

PATH (2)='SFDABC 

PATH (3)='MYAREA' ! names of sub-file 

PATH (4)='YOURIT' 'directories (SFDs) 

PATH (5)=0 

The elements of a directory specification 
may then be either a literal or a single- 
or double-precision array. 

The following is an example of a literal 
specification: 

DIRECTORY^ 10, 7, SFD1,SFD2,SFD3« 



Project Sub-File 
Programmer Directory 
Number Path 

Whenever the specification is an array, you 
may specify the required project and 
programmer numbers either of two ways. You 
can use one word with the project number in 
the left half and the programmer number in 
the right half, or, use the right halves of 
separate sequential word locations. 
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BUFFER COUNT 



This option enables you to specify the number 
of I/O buffers to be assigned to a particular 
device. If this argument is not given or is 
assigned a value of zero, the Monitor default 
is assumed. The general form of this 
argument is: 



BUFFER COUNT= 



An integer constant 
variable 



or 



10 



FILE SIZE 



Use this option for disk operat 
enables you to estimate the n 
that an output file is going to 
use of FILE SIZE enables you to 
start of a program that eno 
available for its execution, 
specified is found to be too 
program executions, the Moni 
additional space according t 
Monitor algorithms. The val 
the FILE SIZE arguments may b 
constant or variable and will 
to the next higher block bound 
of 200 octal) . The general 
argument is: 



ions only; it 
umber of words 

contain. The 

ensure at the 

ugh space is 

If the size 

small during 
tor allocates 
o the normal 
ue assigned to 
e an integer 

be rounded up 

ary (multiple 

form of this 



FILE SIZE= An integer 
variable 



constant 



or 
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Use this option for disk operations only; it 
enables you to assign a 12-digit octal 
version number to a file when it is output. 
The quantity assigned to the VERSION argument 
may be either an octal constant or variable. 
The general form of the argument is: 

VERSION= An octal constant or integer 
variable 



12. BLOCK SIZE You can use this option for all storage media 

except disk and DECtape. It enables you to 
specify a physical storage block size for 
devices other than disk or DECtape. The 
value assigned the BLOCK SIZE arguments may 
be an integer constant or variable. The size 
specified must be greater than or equal to 3 
and less than or equal to 4095. The general 
form of this argument is: 



BLOCK SIZE = An integer 
variable 



constant 



or 



13. RECORD SIZE This option enables you to force all logical 

records to be a specified length. If a 
logical record exceeds the specified length, 
it is truncated; if a logical record is less 
than the specified size, nulls are added to 
pad the record to its full size. The RECORD 
SIZE argument is required whenever a random 
access mode is specified. The value assigned 
to this argument may be either an integer 
constant or variable, and may be expressed as 
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the number of words or characters, depending 
on the mode of the file being described. The 
general form of this argument is: 



RECORD SIZE= 



An integer 
variable 



constant 



or 



14. ASSOCIATE 
VARIABLE 



15. PARITY 



Use this option for disk random access 
operations only. It provides storage for the 
number of the record to be accessed next if 
the program being executed were to continue 
to sequentially access records starting from 
the current READ. For example, if record 
number 3 were read, the ASSOCIATE VARIABLE 
would be equal to 4. The general form of 
this argument is: 

ASSOCIATE VARIABLE = Integer variable 

Use this option for magnetic tape operations 
only; it permits you to specify the type of 
parity to be observed (odd or even) during 
the transfer of data. The general form of 
this option is: 



PARITY^ 'ODD 1 
'EVEN' 
variable (set to literal) 



16. DENSITY 



Use this option for magnetic tape operations 
only; it permits you to specify any of four 
possible bit-per-inch (bpi) tape density 
parameters for magnetic tape transfer 
operations. The general form of this option 
is : 



DENSITY= 



'200' 

'556' 

'800' 

•1600' 

variable 



(set to literal) 



17. DIALOG 



The use of this option in an OPEN statement 
enables you to supersede or defer, at 
execution time, the values previously 
assigned to the arguments of the statement. 
There are two forms of this argument. The 
first is: 



DIALOG 

This form establishes a dialogue with your 
terminal when the OPEN statement is executed. 
FOROTS outputs the following messages at the 
user's terminal. 



UNIT=n:/ACCESS=SEQINOUT/MODE=ASCII 
ENTER NEW FILE SPECS. END WITH A $ 



ALT) 



Once the message and defined file 
specification are output, you may enter any 
desired changes. You need enter only the 
arguments that are to be changed. 
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The second form of the argument is: 

DIALOG= Literal or array 

The value assigned to DIALOG may be a literal 
or an array containing a file specification 
with the desired information. 

18. ERR The use of this option in an OPEN or CLOSE 

statement enables you to transfer program 
control to an executable statement when an 
error is detected during the processing of 
the OPEN or CLOSE statement. The general 
form of this option is: 

ERR= s 

where s is the statement label of an 
executable statement (that appears in the 
same program unit as the error specifier) to 
which program control is transferred when an 
error is detected. 

Associated with the ERR= option on OPEN/CLOSE 
is the subroutine ERRSNS that enables you to 
pinpoint the error. See Appendix H for 
FOROTS error values returned by ERRSNS. 

Examples : 

OPEN (UNIT= 1, DEVICE= ' DSK ' , ACCESS= 'SEQIN', MODE= 'BINARY') 

causes a disk file named F0R01.DAT (since no FILE= option was 
specified) to be opened on unit 1 for sequential input in binary mode. 

OPEN (UNIT= 3, DEVICE= ' DSK ' , FILE= 'PAYROL.DAT', 

1 ACCESS= 'RANDOM', MODE= 'ASCII', RECORD SIZE= 30, 

2 ASSOCIATE VARIABLE= I, ERR= 240) 

causes a disk file named PAYROL.DAT to be opened on unit 3 for random 
input/output operations in ASCII mode. The records in PAYROL.DAT are 
80 characters long; the ASSOCIATE VARIABLE for this file is I. If an 
error occurs during the execution of this OPEN statement, the OPEN 
will terminate and control will transfer to the statement labeled 240. 

CLOSE (UNIT= 3, DISPOSE= 'DELETE') 

causes the file on unit 3 to be closed and removed if the file is on 
DECtape or disk. 



12.2.2 Summary of OPEN/CLOSE Statement Options 

Table 12-1 summarizes the options permitted and required in the OPEN 
and CLOSE statements and the type of value required by each. 
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Table 12-1 
OPEN/CLOSE Statement Arguments 



Argument 


Possible Value 


Open* 



Close* 
I 


ACCESS= 


'SEQIN' , 'SEQOUT' , 


SEQINOUT' , 




'RANDIN 1 , 'RANDOM' , 


'APPEND' , 








or variable 








ASSOCIATE VARIABLE= 


Integer variable 







I 


BLOCK SIZE= 


Integer constant or 


variable 





I 


BUFFER COUNT= 


Integer constant or 


variable 





I 


DENSITY= 


Literal constant or 


variable 





I 


DEVICE= 


Literal constant or 


variable 





I 


DIALOG= 


Literal or array or 


none 





I 


DIRECTORY= 


Literal or variable 


or array 








DISPOSE= 


Literal constant or 


variable 








ERR= 


Statement Number 










FILE= 


Literal constant or 


variable 








FILE SIZE= 


Integer constant or 


variable 





I 


MODE = 


Literal constant or 


variable 





I 


PARITY= 


Literal constant or 


variable 





I 


PROTECTION 


An octal constant or 










integer variable 








RECORD SIZE= 


Integer constant or 
variable 


integer 





I 


UNIT= 


Integer variable or 


constant 


R 


R 


VERSION 


Octal constant or variable 








* 

R = Required 










= Optional 










I = Ignored 
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FORMAT STATEMENT 



13.1 INTRODUCTION 

Use FORMAT statements in conjunction with the I/O list of I/O 
statements, during formatted data transfer operations. The FORMAT 
statements contain field descriptors that, together with the list 
items of associated I/O statements, specify the forms of the data and 
data fields that comprise each record. 

FORMAT statements may appear almost anywhere in a FORTRAN-10 source 
program. The only placement restrictions are that they follow 
PROGRAM, FUNCTION, SUBPROGRAM, or BLOCK DATA statements; and that 
they precede the END statement. (Refer to Section 2.4.) 

You must label FORMAT statements so that I/O statements can reference 
them. 



13.1.1 F ORMAT Statement, General Form 

The general form of a FORMAT statement follows: 

k FORMAT (SA1,SA2, . . . , SAn/SBl ,SB2 , . . . ,SBn/. . .) 

where 

k = the required statement label (which can only 

be referenced by I/O statements) . 

SA1 through SAn = individual field descriptor sets 

and 
SB1 through SBn 

In the foregoing statement form, the individual field descriptors are 

delimited by commas (,). Field descriptor sets and records are 

delimited by slashes (/) . For example, a FORMAT statement of the 
form: 

FORMAT (SA1 ,SA2/SB1 ,S32/3C1 ,SC 2) 

contains format specifications for three records with each record 
containing two field descriptor sets. 

Adjacent slashes (//) in a FORMAT statement specify that a record is 
to be skipped during input or is to consist of an empty record on 
output. For example, a FORMAT statement of the form: 

FORMAT (SA1 ,SA2///SB1 ,SB2) 
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specifies four records are to be processed; however, the second and 
third records are to be skipped. 

You may represent repeated field descriptors or groups of field 
descriptors by using a repeat form. Indicate the repetition of a 
single field descriptor by preceding the descriptor with an integer 
constant that specifies how many times the descriptor is to be 
repeated. For example, a FORMAT statement of the form: 

FORMAT (SAl ,SA2 ,SA3 ,SA1 , SA2 , SA3 , SAl , SA2 , SA3 ) 

may be written as 

FORMAT (3 (SA1,SA2,SA3) ) 

You may nest the repeat forms of field descriptors to any depth. For 
example, a FORMAT statement of the form: 

FORMAT ( SAl, SA2,SA2,SA3, SAl , SA2 , SA2 , SA3 ) 

may also be written in the form: 

FORMAT (2 (SAl, 2SA2,3A3) ) 

The following paragraphs discuss the manner in which you may use the 
foregoing statement forms and the effect each has on the data 
involved . 



13.2 FORMAT DESCRIPTORS 

FORMAT statement descriptors describe the record structure of the 
data, the format of fields within the record, and the conversion, 
scaling, and editing of data within specific fields. The following 
descriptors can be used with FORTRAN-10: 

Descriptors Comments 

rFw.d \ 

rEw.d I Floating point numeric field descriptors 

rDw.d I 

rGw.d / 

rlw Integer field descriptor 

rLw Logical field descriptor 

rAw ) Alphanumeric data field descriptor 

rRw J 

kHs ) Alphanumeric data in a FORMAT statement field 
'text' ) descriptor 

rX ) Field formatting descriptors 
Tw / 

nP Numerical scale factor descriptor 

/ Record delimiter 

$ Carriage return suppression for terminal 

rOw Octal field descriptor 
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where 

r an optional unsigned integer representing a repeat count. 
This option enables a field descriptor to be repeated r 
times . 

w = an optional integer constant representing the width (total 
number of characters contained) of the external form of 
the field being described. All characters, including 
digits, decimal points, signs, and blanks that are to 
comprise the external form of the field, must be included 
in the value of w. 

.d = an optional unsigned integer specifying the number of 
fractional digits that are to appear in the external 
representation of the field being described. Note that w 
must be specified if .d is included in the descriptor. 

k =■ an unsigned integer specifying the number of characters to 
be processed during the transfer of alphanumeric data. 

s = represents a string of ASCII (alphanumeric) characters. 

n = a signed integer constant (plus signs are optional) . 

The characters A, D, E, F, G, H, I, L, 0, P, and R indicate the manner 
of conversion and editing to be performed between the internal 
(processor) and external representations of the data within a specific 
field; these characters are referred to as conversion codes. Table 
13-1 gives the FORTRAN-10 conversion codes and a brief description of 
the function of each. 



Table 13-1 
FORTRAN-10 Conversion Codes 



Code 



Function 



Transfer alphanumeric data 

Transfer real data with a D exponent(l) 

Transfer real data with an E exponent(l) 

Transfer real data without an exponent 

Transfer integer, real, complex, or logical data 

Transfer literal data 

Transfer integer data 

Transfer logical data 

Transfer octal data 

Numerical scaling factor 

Transfer alphanumeric data 



1. An exponent of is assumed if none is given 



The use of commas to delineate format descriptors within a format 
specification is optional as long as no ambiguity exists. For 
example , 

FORMAT (3X,A2) 

can be written as 

FORMAT(3XA2) 
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Since interpretation of a format specification is left associative, 
the specification 

FORMAT (122, I 5) 
can be writ t en as 

F0RMAP(I22I5) 
However, a comma is required when you wish to specify 

FORMAT (1 2, 21 5) 

The following paragraphs provide detailed descriptions of the various 
types of format descriptors, the manner in which they are written and 
employed, and their use in FORMAT statements. 

13.2.1 Numeric Field Descriptors 

The forms of the field descriptors used to specify the format and 
conversion of numeric data follow. 

Description Type of Data Used For 

Dw.d Double-precision data with a D exponent 

Ew.d Real data with an E exponent 

Ew.d,Ew.d For the real and imaginary parts of a complex 

datum 
Fw.d Real or double-precision data without an exponent 

Fw.d,Fw.d For the real and imaginary parts of a complex 

datum 
Iw Integer data 

Ow Octal data 

Gw.d Real or double-precision data 

Gw For integer (or logical) data 

Gw.d, Gw.d For the real and imaginary parts of a complex 

datum 



NOTE 

The G conversion code may be used for 
all but octal numeric data types. 



Examples 

Consider the following program segment 

INTEGER 11,12 
REAL R1,R2,R3 
DOUBLE PRECISION Dl,D2 

11 = 506 

12 = 8 

Rl = 506.0 

R2 =13.1 

R3 = 506001.0 

Dl = 13.0 

D2 = -504.0 



13-4 



FORMAT STATEMENT 



Table 13-2 describes the actions performed by several types of 
formatted WRITE statements on the data given in the foregoing program 
segment. 



Table 13-2 
Action of Field Descriptors On Sample Data 



Item 


Descriptor 


Sample 


WRITE 


External 






Form 


Descr iptor 


Statement 


Form 


External 








Using the 


of Sample 


Appearance 








Sample 


Field 


of Sample 








Descriptor 


Descr ibed 


Data 


1 


Dw.d 


D8.2 


WRITEC-,-) Dl 


Z.nnD nn 


0.18D+02 


2 


Ew.d 


E8.2 


WRITE(-,-) Rl 


Z.nnE nn 


0.51E+03 


3 


Fw.d 


F5.2 


WRITEC-,-) R2 


aa . nn 


18.10 


4 


Iw 


15 


WRITE(-,-) 11 


aaaan 


##506 


5 


Iw 


12 


WRITEC-,-) 11 


an 


** 


6 


Ow 


05 


WRITEC-,-) 12 


nnnnn 


00010 


7 


Gw.d 


G8.2 


WRITEC-,-) D2 


Z.nnD nn 


-.50D+02 


8 


Gw.d 


G8.2 


WRITE(-,-) R3 


Z.nnE nn 


0.51E+06 


9 


Gw.d 


G8.2 


WRITEC-,-) R2 


aa . nn 


###18.10 


10 


Gw 


G5 


WRITEC-,-) 11 


aaan 


##506 


where : 


a. n 


represents a numeric character. 




b. Z 


represents either a - or 0. (Note that if n-d>6, 




a 


negative number cannot be output.) 




c . a 


represents a digit, leading blank (#) or a minus 




si 


gn depending on the numeric output. 


Notes : 






1 


In Item 1 


, the value Dl has only two significant digits and 




d = 2, so no rounding will occur on input. 


2 


In Item 2 


, since Rl has 3 significant digits, it is rounded 




to fit in 


to the specified field. 


3 


In Item 


5, the width (w) part of a format descriptor 




specifies 


an exact field that permits no rounding of its 




contents . 


If the w specification is too small for the datum 




to be transferred, asterisks are output to indicate that the 




transfer 


was not made. 


4 


. " In' "Item 6 


, Integer 8 = Octal 10. 


5 


In Items 


8 and 9, the relationship between G and fixed and 




floating 


real data is discussed in Paragraph 13.2.3. 


6 


In Items 


1, 2, 3, 7, and 8, the D and E exponent prefixes are 




optional 


in the external form of the floating point 




constants 


For example, 1.1E+3 may be written as 1.1+3. 



Table 13-3 summarizes the internal and external forms of the data 
specified by the numeric format conversion code. 
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Table 13-3 
Numeric Field Codes 



Internal Form 


Conversion 
Code 


External Form 




Binary floating-point 


D 


Decimal floating-point with 


D 


double -precision 




exponent 




Binary floating-point 


E 


Decimal floating-point with 
exponent 


E 


Binary floating-point 


F 


Decimal fixed-point 




Binary integer 


I 


Decimal integer 




Binary word 





Octal value 




One of the following: 


G 


Single-precision decimal 




single -precision 




floating-point, decimal 




binary floating-point, 




integer, logical (T or F) , or 


binary integer, binary 




complex (two decimal 




logical, or binary 




floating-point numbers) , 




complex 




depending upon the internal 
form 





Complex quantities transfer as two independent real quantities. The 
format specification for complex quantities consists of either two 
successive real field descriptors or one repeated real field 
descriptor. For example, the statement 

FORMAT (2 El 5. 4, 2 (F8.3,F8.5)) 
may transfer up to three complex quantities. 
The equivalent of the foregoing statement is 

FORMAT (El 5. 4 , El 5 . 4 , F8 . 3 , F8 . 5 , F8 . 3 , F8 . 5) 



13.2.2 Interaction of Field Descriptors With I/O Variables 

The execution of an I/O statement that specifies a formatted data 
transfer operation initiates format control. The actions performed by 
format control depend on information provided by the elements of the 
I/O statement's list of variables and the field descriptors that 
comprise the referenced FORMAT statement's format specifications. 



In processing each 
list, FORTRAN-10 
specifications in s 
name is obtained 
obtained from the f 
specification is re 
or record is establ 
the first item in 
of format specifica 
the last set within 



FORMAT controlled I/O statement that has an I/O 
scans the contents of the list and the format 
tep. Each time another variable or array element 

from the list, the next field specification is 
ormat specification. If the end of the format 
ached and more items remain in the list, a new line 
ished and the scan process is restarted, either at 
the format specification or, if parenthesized, sets 
tions exist within the format specification, with 

the format specification. 
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When the I/O list is exhausted, control proceeds to the next statement 
in the program, but not before the FORMAT statement is scanned either 
to its end or to the next variable transfer format descriptor. (That 
is, the FORMAT statement is scanned past slashes, literal constants, 
Hollerith field descriptors, and spacing descriptors, but not past 
data field descriptors.) 

A record is terminated by one of the following: 

1. a slash in the FORMAT specification 

2. the delimiting right parentheses, ), of the FORMAT statement 

3. a lack of items in the I/O list 

4. a lack of Hollerith or literal field descriptors in the 
FORMAT statement 

On input, an additional record is read only when a single slash, /, is 
encountered in the FORMAT statement. A record is skipped when two 
slashes, // , are encountered or a slash is followed by the end of the 
FORMAT statement. If the FORMAT statement finishes a record by a 
slash or the end of the FORMAT statement, any data left in the input 
record is ignored. If the input record is exhausted before the data 
transfers are completed, the remainder of the transfer is completed as 
if the record were extended with blanks. 

On output, an additional record is written only when a slash, /, is 
encountered in the FORMAT statement. If a pair of consecutive 
slashes, // , or a single slash followed by the end of the FORMAT 
statement is encountered, an empty record is written. 



13.2.3 G, Genera l Numeric Conversion C ode 

You may use the G conversion code in field descriptors for the format 
control of real, double-precision, integer, logical, or complex data. 

With the exception of real and double-precision data, the type of 
conversion performed by a type G field descriptor depends on the type 
of its corresponding I/O list variable. In the case of real and 
double-precision data, the kind of conversion performed is a function 
of the external magnitude of the datum being transferred. Table 13-4 
illustrates the conversion performed for various ranges of magnitude 
(external form) of real and double-precision data. 



13.2.4 Numeric Fields with Scale Factors 

You may add scale factors to D, E, F, and G conversion codes in field 
descriptors. The scale factor has the form 

nP 

where n is a signed integer (+ is optional) and P identifies the 
operation. When used, a scale factor is added as a prefix to field 
descriptor s . 
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Examples 

-2PF10.5 
1PE8.2 

When you add a scale factor to an type F field descriptor (or type G 
if the external field is a fixed point decimal) a power of 10 is 
specified so that 

External Form of Number = (Internal Form) *10** ( scale factor) 

For example, assuming the data involved to be the real number 26.451, 
the field descriptor 

F8.3 

produces the external field 

##26.451 



Table 13-4 
Descriptor Conversion of Real and Double-Precision 
Data According to Magnitude 



Magnitude of Data in 
External Form (M) 


Equivalent Method of 
Conversion Performed 


0.1 M<1 
1 M<10 

10d-2 M<l0d-1 
10d-l M<10d 
ALL OTHERS 


F(w-4) .d,4X 
F(w-4) . (d-1) ,4X 

F(w-4) .1,4X 
F(w-4) .0,4X 
Ew.d 


NOTE 

In all numeric field conversions, the 
field width (w) you specify should be 
large enough to include the decimal 
point, sign, and exponent character in 
addition to the number of digits. If 
the specified width is too small to 
accommodate the converted number, the 
field will be filled with asterisks (*) . 
If the number converted occupies fewer 
character positions than specified by w, 
it will be right-justified in the field 
and leading blanks will be used to fill 
the field. 
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The addition of the scale factor of -IP 

-1PF3.3 
produces the external field 

W&l .645 

When you add a scale factor to D, E, and G (external field not a 
decimal Eixed-point) type field descriptors, it multiplies the number 
by the specified power of ten and the exponent is changed accordingly. 

In input operations, type F (and type G, if the external field is 
decimal fixed-point) conversions are the only ones affected by scale 
factors. 

When you specify no scale factor, it is understood to be zero. Once 
you specify a scale factor, however, it holds for all subsequent types 
D, E, F, and G field descriptors within the same format specification 
unless another scale factor is specified. A scale factor is reset to 
zero when you specify a scale factor of zero. Scale factors have no 
effect on I and type field descriptors. 

When you add a scale factor to a D or E field descriptor, it specifies 

a power of 10 so that the external form of the number has its mantissa 

multiplied by the specified power of 10; its exponent is adjusted 
accordingly. 

For example, assuming the data involved to be the real number 12.493, 
the field descriptor 

Ell. 3 
produces the external field 

##0.125E+02 
The addition of the scale factor 2P 

2PE11.3 
produces the external field 

bbl2.,49E+00 

With a scale factor of zero, the number of significant digits printed 
by a format of the form 

Ew.d 
or 

Dw.d 

is the number of digits to the right of the decimal point. 

For a negative scale factor nP , for d<n<0, there will be ABS(n) 
leading zeros and d-ABS(n) significant digits after the decimal point, 
for a total of d digits after the decimal point. If n -d , there will 
be d insignificant digits (zeros) to the right of the decimal point. 

If the scale factor nP is positive, for 0<n<d+2 there will be n 
significant digits to the left of the decimal point and d-n+1 
significant digits to the right of the decimal point (for a total of 
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SIGNIFICANT 


REASON 


DIGITS 




3 


n=0 


4 


n<d + 2 


3 


-d<n 


4 


n<d + 2 





n -d 


4 


n<d + 2 


4 


n d + 2 
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d + 1 significant digits). If n>.d+2 , there will be d + 1 significant 
digits and n-d-1 insignificant trailing zeros on the left of the 
decimal point. 

If the data to be printed is 12.493, these formats produce results as 
follows : 

FORMAT OUTPUT 

E15.3 bbbbbb0.125E+02 

1PE15.3 bbbbbbl.249E+01 

-1PE15.3 bbbbbb.012E+03 

2PE15.3 bbbbbbl2.49E+00 

-3PE15.3 bbbbbb0.000E+05 

4PE15.3 bbbbbbl249.E-02 

6PE15.3 bbbbl24900.E-04 



13.2.5 Logical Field Descriptors 

You may transfer logical data under format control in a manner similar 
to numeric data transfer by use of the field descriptor 

Lw 

where L is the control character and w is an integer specifying the 
field width. The data is transmitted as the value of a corresponding 
logical variable in the associated input/output list. 

On input, the first non-blank character in the logical data field must 

be T or F, the value of the logical variable is stored in the list 

variable as true or false, respectively. If the entire input data 
field is blank or empty, a value of false is stored. 

On output, w minus 1 blanks followed by T or F will be output if the 
value of the logical variable is true or false, respectively. 



13.2.6 Variable Numeric Field Widths 

Several of the conversion codes are acceptable in FORMAT statements 
without field width specifications, the w.d portion of the 
specification so that can be omitted (1) 




1. If d is given, w must also be specified 
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denoted by successive commas optionally separated by blanks or tabs. 
A null field is equivalent to a fixed-field input of blanks. For 
example, the source code 

READ 1, X, Y, Z , L, I, J 
1 FORMAT (3F, L, I, A3) 

with data as follows 

,1.0E+5, ,TRUEXXX1####ABC 

results in 

X = 0.0 

Y = 1.0E+5 

Z = 0.0 

L = TRUE 

1 = 1 

J = 'ABC 

Note that if a comma is included in the input data after the XXXI and 
before the blanks, i.e., the data is 

,1.0E+5 ,, TRUEXXX1,####ABC 

then J = 'JW 

On output, the format codes A, D, E, F, G, I, L, 0, and R are 
acceptable ■ without field width specifications. The following defaults 
are assumed: 

Format Code Assumed Default 

for KA10 for KI10,KL10 

A single-precision A5 A5 

A double-precision A10 A10 

D D25.16 D25.13 

E El 5. 7 El 5. '7 

F F15.7 F15.7 

G single-precision G15.7 G15.7 

G double-precision G25.16 G25.18 

I 115 115 

L L15 L15 

O 015 015 

R single-precision R5 R5 

R double-precision RIO RIO 



13.2.7 Alphanumeric Field Descriptors 

You may accomplish the formatted transfer of alphanumeric data in a 
manner similar to the formatted transfer of numeric data by use of the 
field descriptors Aw and Rw, where A and R are the control characters 
and w is the number of characters in the field. 

The A and R descriptors both transfer alphanumeric data into or from a 
variable in an input/output list depending on the I/O operation. A 
list variable may be of any type. For example, 

READ (6,5) V 
5 FORMAT (A4) 
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causes four alphanumeric characters to be read from unit 6 and stored 
in the variable V. 

The A descriptor deals with variables containing left-justified, 
blank-filled characters; the R descriptor deals with variables 
containing right- justified , zero-filled characters. The following 
paragraphs summarize the result of alphanumeric data transfer (both 
internal and external representations) using the A and R descriptors. 
These paragraphs assume that w represents the field width and m 
represents the total number of characters possible in the variable. 
Double precision variables contain 10 characters (m=10) ; all other 
variables contain 5 (m=5) . 

A Descriptor 

1. INPUT, where w > m -- The rightmost m characters of the field 
are read in and stored left- justified and blank-filled in the 
associated variable. 

2. INPUT, where w < m — All w characters are read in and stored 
left- justified and blank-filled in the associated variable. 

3. OUTPUT, where w>m -- m characters are output and 
r ight- justified in the field. The remainder of the field is 
blank-filled. 

4. OUTPUT, where w < m — The left most w characters of the 
associated variable are output. 



R Descriptor 

1. INPUT, where w>m — The right most m characters of the field 
are read in and stored r ight- justified , zero-filled in the 
associated variable. 

2. INPUT, where w < m -- All w characters are read in and stored 
r ight- justified , zero-filled in the associated variable. 

3. OUTPUT, where w>m -- m characters are output and right 
justified in the field. The remainder of the field is blank 
filled. 

4. OUTPUT, where w < m -- The right most w characters of the 
associated variable are output. 



13.2.8 Transf e r r ing Alphanumeric Data 

You may transmit alphanumeric data directly into or from the FORMAT 
statement by two different methods: H-conversion , or the use of 
single quotes, i.e., a literal field descriptor. 

In H-conversion, the alphanumeric string is specified in the form nH , 
where H is the control character and n is the total number of 
characters (including blanks) in the string. For example, you may use 
the following statement sequence to print the words PROGRAM COMPLETE 
on the device LPT: 

PRINT 101 
101 FORMAT (17H#PROGRAM#COMPLETE) 
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Read and write operations of this type are initiated by I/O statements 
that reference a format statement and a logical device, but do not 
contain an I/O list (see preceding example). 

Write transfers from a FORMAT statement cause the contents of the 
statement field descriptor to be output to a specified logical device. 
The contents of the field descriptor, however, remain unchanged. 

Read transfers with a FORMAT statement cause the contents of the field 
descriptors involved to be replaced by the characters input from the 
specified logical device. 

Alphanumeric data is stored in a field descriptor lef t- justi f ied . If 
the data input into a field has fewer characters than the field, 
trailing blanks are added to fill the field. If the data input is 
larger than the field of the descriptor, the excess rightmost 
characters are lost. 

Examples 

WRITE (1,101) 
101 FORMAT (17H#PROGRAM#COMPLETE) 

cause the string PROGRAM COMPLETE to be output to the file on device 
1. 

Assuming the string START on device 1, the sequence 

READ (1,101) 
101 FORMAT (17H#PROGRAM#COMPLETE) 

would change the contents of statement 101 to 

101 FORMAT {11 ]iST ART)6)6)6)6)6)6)6)6li6)6)6)6) 

The foregoing functions may also be accomplished by a literal field 
descriptor consisting of the desired character string enclosed within 
apostrophes, i.e., 'string'. For example, you may use the descriptors 

101 FORMAT (17H#PROGRAM)zSCOMPLETE) 
and 

101 FORMAT ('#PROGRAM#COMPLETE' ) 

in the same manner. 

The result of literal conversion is the same as H-conver sion . On 
input, the characters between the apostrophes are replaced by input 
characters, and on output, the characters between the apostrophes 
(including blanks) are written as part of the output data. 

An apostrophe character within a literal field should be represented 
by two successive apostrophe marks; otherwise, the statement 
containing the field will not compile. For example, the statement 
sequence 

50 FORMAT ('DON' 'T' ) 
PRINT 50 

will compile and will cause the word DON'T to be output on the line 
printer. The statement 

50 FORMAT ('DON'T') 

however, will cause a compile error. 
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13.2.9 Mixed Numeric and Alphanumeric Fields 

You may place an alphanumeric field descriptor among other fields of 
the format. For example, you may use the statement: 

FORMAT (I4,7H#FORCE=F10.5) 

to output the line: 

##22#FORCE=##17 . 68901 

You may omit the separating comma after an alphanumeric format field, 
as shown in the foregoing statement. 

When you omit a comma delimiter from a format specification, format 
control associates as much information as possible with the leftmost 
of the two field descriptors. 



13.2.10 Multiple Record Specifications 

To handle a group of input/output records where different records have 
different field descriptors, use a slash to indicate a new record. 
For example, the statement 

FORMAT (303/15 ,2F8. 4) 
is equivalent to 

FORMAT (308) 
for the first record, and 

FORMAT (I5,2F8.4) 

for the second record. 

You may omit separating commas when you use a slash. When n slashes 
appear at the end or beginning of a format, n blank records will be 
written on output or skipped on input. When n slashes appear in the 
middle of a format, n-1 blank records are written on output or n-1 
records skipped on input. 

Both the slash and the closing parenthesis at the end of the format 
indicate the termination of a record. If the list of an input/output 
statement dictates that the transmission of data is to continue after 
the closing parenthesis of the format is reached, the format is 
repeated, starting with: 

1. that group repeat specification terminated by the last right 
parenthesis of the next lower level group, or 

2. level zero if no higher level group exists. 
Thus, the statement 

FORMAT (F7.2,(2(E15.5,E15.4) ,17)) 
level / / /^level 
level 1 / level 1 
level 2 
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causes the format 

2(E15.5,E15.4) ,17 
to be used after the first record. 
As a further example, consider the statement 

FORMAT (F7.2/(2(E15.5,E15.4) ,17) ) 
The first record has the format 

F7.2 
and the next 5 records have the format 

2(E15.5,E15.4) ,17 

13.2.11 Record Formatting Field Descriptors 

You may use two field descriptors, Tw and nX, to position data within 
a record. 

You may use the field descriptor Tw to specify the character position 
(external form) in which a record begins. In the Tw field descriptor, 
the letter T is the control character, and w is an unsigned integer 
constant that specifies the character position, in a FORTRAN-10 
record, where the transfer of data is to begin. When the output is 
printed, w corresponds to the (w-1) th print position, since the first 
character of the output buffer is a forms control character and is not 
printed. It is recommended that the first field specification of the 
output format be IX, except where a forms control character is used. 

NOTE 

Two successive T field specifications 
will result in the second field 
overwriting the first field. 

Examples 

The statement sequence 

PRINT 2 
2 FORMAT (T50, 'BLACK' ,T30, 'WHITE' ) 

causes the following line to be printed 

WHITE BLACK 



(print position 29) (print position 49) 



The statement sequence 

1 FORMAT (T3 5, 'MONTH' ) 
READ (2,1) 
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causes the first 34 characters of the input data associated with 
logical unit 2 to be skipped, and the next five characters to replace 
the characters M, 0, N, T, and H in storage. If an input record 
containing 

ABC]z$#Jz$XYZ 
is read with the format specification 

10 FORMAT (T7,A3,T1,A3) 

then the characters XYZ and ABC are read in that order. 

You may use the field descriptor nX to introduce blanks into output 
records or to skip characters of input records. The letter X 
specifies the operation, and n is a positive integer that specifies 
the number of character positions to be either made blanks (output) or 
skipped ( input) . 

Example 

The statement 

FORMAT ( 5H#STEP , I 5 , 1 OX , 2H Y= , F7 . 3 ) 
may be used to print the line 

STET?lfflV281fflV)6)6W)6)6)6Y=)&-3. 87 2 



13.2.12 $ Forma t Descriptor 

A $ format descriptor at the end of an output FORMAT is used to 
suppress the carriage return at the end of the current record. It is 
mainly used on terminal output but will work on non-terminal devices. 
A $ format descriptor is ignored in input FORMATS and has no effect if 
embedded in an output FORMAT. The $ format descriptor must be the 
next format descriptor to be processed when the corresponding output 
list is exhausted for the $ descriptor to have the defined effect. 



13.3 CARRIAGE CONTROL CHARACTERS FOR PRINTING ASCII RECORDS 

You may use the first character of an ASCII record to control the 
spacing operations of the line printer or Teletype terminal printer 
unit on which the record is being printed. Specify the control 
character desired by beginning the FORMAT field specification for the 
ASCII record to be output with lHa... where a is the desired control 
character. Table 13-5 describes the control characters permitted in 
FORTRAN-10 and the effect each has on the printing device. 
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Table 13-5 
FORTRAN-10 Print Control Characters 



FORTRAN Character 



space 

zero 

1 one 

+ plus 

* asterisk 

- minus 

2 two 

3 three 
/ slash 

. period 



comma 



Printer Character 



LF 



LF,LF 
FF 



DC 3 

LF,LF,LF 
DLE 

VT 

DC4 

DC 2 



DC1 



Octal Value 



012 

012 
014 



023 

012 
020 

013 

024 

022 



021 



Effect 



Skip to next 
line with form 
feed after 
60 lines 

Skip a line 

Form feed - go 
to top of next 
page 

Suppress 
skipping - 
overprint the 
line 

Skip to next 
line with no 
form feed 

Skip two lines 

Space 1/2 of a 
page 

Space 1/3 of a 
page 

Space 1/6 of a 
page 

Triple space 
with a form 
feed after 
every 20 lines 
printed 

Double space 
with a form 
feed after 
every 
30 lines 
printed 



NOTE 

Printer control characters DLE, DC1, 
DC2, DC3, and DC4 affect only the line 
printer . 
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CHAPTER 14 
DEVICE CONTROL STATEMENTS 



14.1 INTRODUCTION 

You may use the following device control statements in FORTRAN-10 
source programs: 



1. 


REWIND 


2. 


UNLOAD 


3. 


BACKSPACE (1) 


4. 


ENDFILE 


5. 


SKIPRECORD(l) 


6. 


SKIPFILE 


7. 


BACKFILE 



The general form of the foregoing device control statements is 

keyword u 
keyword (u) 

where 

keyword is the statement name 

u is the FORTRAN-10 logical device number (Chapter 10, 

Table 10-1) 

The operations performed by the device control statement are normally 
used only for magnetic tape devices (MTA) . In FORTRAN-10, however, 
the device control operations are simulated for disk devices. 

The following paragraphs describe the form and use of the device 
control statements. 



14.2 REWIND STATEMENT 



Form: REWIND u 

Use: Move the file contained by device u to its initial 
(load) point. If the medium is already at its load 
point, this statement has no effect. Subsequent READ 



1. The results of these commands are unpredictable when used on list- 
directed and NAMELIST-controlled data. 
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or WRITE statements that reference device u will 
transfer data to or from the first record located on 
the medium mounted on device u. 



Example: REWIND 15 



14.3 UNLOAD STATEMENT 



Form: UNLOAD u 

Use: Move the medium contained on device u past its load 
point until it has been completely rewound onto the 
source reel. 

Example: UNLOAD 16 



14.4 BACKSPACE STATEMENT 



Form: BACKSPACE u 

Use: Move the medium contained on device u to the start of 
the record that precedes the current record. If the 
preceding record prior to execution of this statement 
was an endfile record, the endfile record becomes the 
next record after execution. If the current record is 
the first record of the file, this statement, has no 
effect . 



MOTE 

You cannot use this statement for files 
set up for random access, list-directed, 
or NAMELIST-controlled I/O operations. 



Example: BACKSPACE 15 



14.5 END FILE STATEMENT 



Form: END FILE u 

Use: Write an endfile record in the file located on device 
u. The endfile record defines the end of the file that 
contains it. If an endfile record is reached during an 
I/O operation initiated by a statement that does not 
contain an END= option, the operation of the current 
program is terminated. 

Example: END FILE 15 
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14.6 SKIP RECORD STATEMENT 



Form: SKIP RECORD u 

Use: In accessing the file located on device u, skip the 
record immediately following the current (last 
accessed) record. 



NOTE 

You cannot use this statement for files set up 
for random access, list-directed, or 
NAMELIST-controlled I/O operations. 



Example: SKIP RECORD 16 



14.7 SKIP FILE STATEMENT 



Form: SKIP FILE u 

Use: In accessing the medium located on unit u, skip the 
file immediately following the current (last accessed) 
file. If the number of SKIP FILE operations specified 
exceeds the number of following files available, an 
error will occur. 

Example: SKIP FILE 01 



14.8 BACK FILE STATEMENT 



Form: BACKFILE u 

Use: Move the medium mounted on device u to the start of the 
file that precedes the current (last accessed) file. 

If the number of BACKFILE operations performed exceeds 
the number of preceding files, completion of the last 
operation will move the medium to the start of the 
first file on the medium. 

Example: BACKFILE 20 



14.9 SUMMARY OF DEVICE CONTROL STATEMENTS 



Table 14-1 summarizes the form and use of the FORTRAN-10 device 
control statements 
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Table 14-1 
Summary of FORTRAN-10 Device Control Statements 



Statement Form 


Use 


RE'WIND u 
UNLOAD u 
END FILE u 
SKIP RECORD u 
SKIP FILE u 
BACKFILE u 
BACKSPACE u 


Rewind medium to its load point 

Rewind medium onto its source reel 

Write an endfile record into the current file 

Skip the next record 

Skip the next file 

Move medium backwards one file 

Move medium back one record 



14-4 



CHAPTER 15 
SUBPROGRAM STATEMENTS 



15.1 INTRODUCTION 

Procedures you use repeatedly in a program may be written once and 
then referenced each time you need the procedure. Procedures that may 
be referenced are either internal (written and contained within the 
program in which they are referenced) or external (self-contained 
executable procedures that may be compiled separately) . The kinds of 
FORTRAN-10 procedures that may be referenced are: 

1. statement functions, 

2. intrinsic functions (FORTRAN-10 defined functions), 

3. external functions, and 

4. subroutines. 

The first three of the foregoing categories are referred to 
collectively as functions or function procedures; procedures of the 
last category are referred to as subroutines or subroutine procedures. 



15.1.1 Dummy and Actual Arguments 

Since you may reference subprograms at more than one point throughout 
a program, many of the values used by the subprogram may be changed 
each time it is used. Dummy arguments in subprograms represent the 
actual values to be used, which are passed to the subprogram when it 
is called. 

Functions and subroutines use dummy arguments to indicate the type of 
the actual arguments they represent and whether the actual arguments 
are variables, array elements, arrays, subroutine names, or the names 
of external functions. Each dummy argument must be used within a 
function or subroutine as if it were a variable, array, array element, 
subroutine, or external function identifier. Dummy arguments are 
given in an argument list associated with the identifier assigned to 
the subprogram; actual arguments are normally given in an argument 
list associated with a call made to the desired subprogram. (Examples 
of argument lists are given in the following paragraphs.) 

The position, number, and type of each dummy argument in a subprogram 
list must agree with the position, number, and type of each argument 
list of the subprogram reference. 
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Dummy arguments may be: 

1 . variables , 

2. array names, 

3. subroutine identifiers, 

4. function identifiers, or 

5. statement label identifiers that are denoted by the symbol 
"*", "$" , or "&". 

When you reference a subprogram, its dummy arguments are replaced by 
the corresponding actual arguments supplied in the reference. All 
appearances of a dummy argument within a function or subroutine are 
related to the given actual arguments. Except for subroutine 
identifiers and literal constants, a valid association between dummy 
and actual arguments occurs only if both are of the same type; 
otherwise, the results of the subprogram computations will be 
unpredictable. Argument association may be carried through more than 
one level of subprogram reference if a valid association is maintained 
through each level. The dummy/actual argument associations 
established when a subprogram is referenced are terminated when the 
desired subprogram operations are completed. 

The following rules govern the use and form of dummy arguments: 

1. The number and type of the durrniy arguments of a procedure 
must be the same as the number and type of the actual 
arguments given each time the procedure is referenced. 

2. Dummy argument names may not appear in EQUIVALENCE, DATA, or 
COMMON statements. 

3. A variable dummy argument should have a variable, an array 
element identifier, an expression, or a constant as its 
corresponding argument. 

4. An array dummy argument should have either an array name or 
an array element identifier as its corresponding actual 
argument. If the actual argument is an array, the length of 
the dummy array should be less than or equal to that of the 
actual array. Each element of a dummy array is associated 
directly with the corresponding elements of the actual array. 

5. h dummy argument representing a subroutine identifier should 
have a subroutine name as its actual argument. 

6. A dummy argument representing an external function must have 
an external function as its actual argument. 

7. A dummy argument may be defined or redefined in a referenced 
subprogram only if its corresponding actual argument is a 
variable. If dummy arguments are array names, then elements 
of the array may be redefined. 

Additional information regarding the use of dummy and actual arguments 
is given in the description of how subprograms are defined and 
referenced. 
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15.2 STATE MENT FUNCTIONS 

Statement functions define an internal subprogram in a single 
statement. The general form of a statement function is: 

name (argl ,arg2 , . . . ,argn) =E 

where 

name is a name you assign that consists of one to six 

characters. The name you use must conform to the 
rules for symbolic names given in Section 3.3. 

The type of a statement function is determined 
either by the first character of its name or by it 
being explicitly declared in a type statement. 

(argl . . . argn) represents a list of dummy arguments. 

E is an arbitrary expression. 

The expression E of a statement function may be any legitimate 
arithmetic expression that may use the given dummy arguments and 
indicates how they are combined to obtain the desired value. You may 
use the dummy arguments as variables or indirect function references; 
but you cannot use them as arrays. The dummy argument names bear no 
relation to their use outside the context of the statement function 
except for their data type. The expression may reference FORTRAN-10 
defined functions (Paragraph 15.3) or any other defined statement 
function, or call an external function. It may not reference any 
function that directly or indirectly references the given statement 
function or any subprogram in the chain of references. That is, 
recursive references are not allowed. Statement functions produce 
only one value, the result of the expression that it contains. A 
statement function cannot reference itself. 

You must define all statement functions within a program unit before 
the first executable statement of the program unit. When used, the 
statement function name must be followed by an actual argument list 
enclosed within parentheses and may appear in any arithmetic or 
logical expression. 

Examples : 

SSQR(K) =(K* (K+l) *2*K+l)/6 
ACOSH(X) =(EXP(X/A) +EXP(-X/A) )/2. 



15.3 INTRINSIC FUNCTIONS ( FORTRA N-10 DEFINED FUNCTIONS) 

Intrinsic functions are subprograms that are defined and supplied by 
FORTRAN-10. You can reference an intrinsic function by using its 
assigned name as an operand in an arithmetic or logical expression. 
Table 15-1 describes the names of the FORTRAN-10 intrinsic functions, 
the type of the arguments that each accepts, and the function it 
performs. These names always refer to the intrinsic function unless 
they are preceded by an asterisk (*) or ampersand (&) in an EXTERNAL 
statement, declared in a conflicting explicit type statement, or are 
specified as a routine dummy parameter. 
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NOTE 

Octal constants may only be used as 
actual input to an intrinsic function 
when the function expects octal 
arguments . 



Table 15-1 
Intrinsic Functions (FORTRAN-10 Defined Functions) 



Function 


Mnemonic 


Definition 


Number of 
Arguments 


Type of 


Argument 


Function 


Absolute value: 












Real 


ABS* 


arg 


1 


Real 


Real 


Integer 


IAES* 


arq 


1 


Inteaer 


Integer 


Double- precision 


DABS* 


arc 


1 


Double 


Double 


Complex to real 


CABS 


c=(x**2+Y**2) ** (1/2) 


1 


Complex 


Real 


Conversion : 












Integer to real 


FLOAT** 




1 


Integer 


Real 


Real to integer 


IFIX** 


Sign of arg * 
largest integer 
< largl 


1 


Real 


Integer 


Double to real 


SNGL 




1 


Double 


Peal 


Real to double 


DBLE* 




1 


Real 


Double 


* In line functions. 












**In line functions on h 


,110 and KL10 only. 









CO 

c 

CD 
nj 
50 
O 

50 
3> 
3 



Table 15-1 (Cont.) 
Intrinsic Functions (FORTRAN-10 Defined Functions) 



U1 

I 



Function 


Mnemonic 


Definition 


Number of 
Arguments 


Typ 


e of 


Argument 


Function 


Integer to double 


DFLOAT 




1 


Integer 


Double 


Complex to real 


REAL* 




1 


Complex 


Real 


(obtain real part) 












Complex to real 


A I MAG 




1 


Complex 


Real 


(obtain imaginary 












part) 












Keal to complex 


CMPLX* 


c=Arg + i*Arg 


2 


Real 


Complex 


Truncation : 












1 Real to real 


A I NT 


Sign of arg* 


1 


Real 


Real ! 







largest integer 












< 1 argl 








Real to integer 


INT* 




1 


Real 


Integer 


Double to integer 


IDINT 




1 


Double 


Integer 


Remainder ing : 












Real 


AMCD 


(The remainder \ 


2 


Real 


Real 


Integer 


MOD* 


<when Arg 1 is > 


2 


Integer 


Integer 


Double- precision 


DMCD 


(divided by Arg 2J 


2 


Double 


Double 


Maximum value: 














AMAXO 


( ) 


>1 


Inteaer 


Real 




AMAX1* 


\ I 


>1 


Real" 


Real 




MAXO* 


\Max (Argl,Arq2,...)/ 


>1 


Integer 


Integer 




MAX1 




N 1 


Real 


Integer 




DMA XI 


' ' 


> l 


Double 


Double 


* In line functions. 

I i 



en 
C 

CD 
>D 

o 

Q 

S3 

D> 



CO 

> 

W 
3; 

Z 
hi 
cn 



Table 15-1 (Cont.) 
Intrinsic Functions ( FORTRAN- 1 Defined Functions) 



en 
I 

CTi 



Function 


Mnemonic 


Definition 


Nurr.be r of 
Arguments 


Type of 


Argument 


Function 


Minimum Value : 

Transfer of Sign: 
Real 
Inteqer 
Double precision 

Positive Difference: 
Real 
Integer 


AMINO 
AMINl* 
M I N * 
MINI 
DMINl 

SIGN* 
ISIGN 
DSIGN 

DIM* 
IDIM 


\Min (Argl,Arq2, ...)/' 

<Sgn(Arg2) * |Argl|| 
(Argl-Min ( Argl , Arg2)i 


>1 
>1 
>1 
>1 
>1 

2 
2 

2 

2 
2 


Inteqer 

Real 

Integer 

Real 

Double 

Real 

Integer 

Double 

Real 
Integer 


Real 

Real 

Integer 

Integer 

Double 

Real 

Integer 

Double 

Real 
Integer 


* In line functions. 



CO 

c 

03 

50 
O 
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15.4 EXTERNAL FUNCTIONS 

External functions are function subprograms that consist of a FUNCTION 
statement followed by a sequence of FORTRAN-10 statements that define 
one or more desired operations; subprograms of this type may contain 
one or more RETURN statements and must be terminated by an END 
statement. Function subprograms are independent programs that may be 
referenced by other programs. 

The FUNCTION statement that identifies an external function has the 
form : 

type FUNCTION name (argl , arg 2 , . . . ,argn) 

where 

type is an optional type specification as 

described in Section 6.3. These include 
INTEGER, REAL, DOUBLE PRECISION, COMPLEX or 
LOGICAL (plus the optional size modifier, *n, 
for compatibility with other manufacturers.) 

name is the name you assign to the function. The 

name may consist of from one to six 
characters, the first of which must be 
alphabetic. You may include the optional 
size modifier (*n) with the name if the type 
is specified. (Refer to Section 6.3.) 

(argl,...,argn) is a list of dummy arguments. 

If you omit type in the FUNCTION statement, the type of the function 
may be assigned, by default, according to the first character of its 
name, or may be specified by an IMPLICIT statement or by an explicit 
statement given with the subprogram itself. 

Note that if you want to use the same name for a user-defined function 
as the name of a FORTRAN-10 defined function (library basic external 
function) , the desired name must be declared in an EXTERNAL statement 
and prefixed by an asterisk (*) or ampersand (&) in the referencing 
routine. (Refer to Section 6.7 for a description of the EXTERNAL 
statement . ) 

The following rules govern the structuring of a FUNCTION subprogram: 

1. You must use the symbolic name assigned a FUNCTION subprogram 
as a variable name in the subprogram. During each execution 
of the subprogram, this variable must be defined and, once 
defined, may be referenced or redefined. The value of the 
variable at the time of execution on any RETURN statement is 
the value of the subprogram. 

NOTE 

A RETURN statement returns control to the calling 
statement that initiated the execution of the 
subprogram. See Section 15.6 for a description of 
this statement. 
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2. You may not use the symbolic name of a FUNCTION subprogram in 
any nonexecutable statement in the subprogram except in the 
initial FUNCTION statement or a type statement. 

3. Dummy argument names may not appear in any EQUIVALENCE, 
COMMON, or DATA statement used within the subprogram. 

4. The function subprogram may define or redefine one or more of 
its arguments so as to effectively return results in addition 
to the value of the function. 

5. The function subprogram may contain any FORTRAN-10 statement 
except BLOCK DATA, SUBROUTINE PROGRAM, another FUNCTION 
statement, or any statement that directly or indirectly 
references the function being defined or any subprogram in 
the chain of subprograms leading to this function. 

6. The function subprogram should contain at least one RETURN 
statement and must be terminated by an END statement. The 
RETURN statement signifies a logical conclusion of the 
computation made by the subprogram and returns the computed 
function value and control to the calling program. A 
subprogram may have more than one RETURN statement. 

The END statement specifies the physical end of the 
subprogram and implies a return. 



15.4.1 Basic External Functions ( FORTRAN-10 Defined Functions) 

FORTRAN-10 contains a group of predefined external functions that are 
called basic functions. Table 15-2 describes each basic function, its 
name, and its use. These names always refer to the basic external 
functions unless declared in an EXTERNAL or conflicting explicit type 
statement . 



15.4.2 Generic Function Names 

The compiler generates a call to the proper FORTRAN-10 defined 
function, depending on the type of the arguments, for the following 
generic function names: 

ABS 

AMAX1 

AMIN1 

ATAN 

ATAN2 

COS 

INT 

MOD 

SIGN 

SIN 

SQRT 

EXP 

ALOG 

ALOG10 

In the following example 

K=ABS (I) 
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the type of I determines which function is called. If I is an 
integer, the compiler generates a call to the function IABS. If I is 
real, the compiler generates a call to the function ABS. If I is 
double precision, the compiler generates a call to the function DABS. 

The function name loses its generic properties if it appears in an 
explicit type statement, if it is specified as a dummy routine 
parameter, or if it is prefixed by "*" or "&" in an EXTERNAL 
statement. When a generic function name that was specified unprefixed 
in an EXTERNAL statement is used as a routine parameter, it is assumed 
to reference a FORTRAN-10 defined function of the same name, or if 
none exists, a user-defined function. Note that IMPLICIT statements 
have no effect upon the data type of generic function names unless the 
name has been removed from its class by use of an EXTERNAL statement. 



15.5 SUBROUTINE SUBPROGRAMS 

A subroutine is an external computational procedure that is identified 
by a SUBROUTINE statement and may or may not return values to the 
calling program. The SUBROUTINE statement used to identify a 
subprogram of this type has the form: 

SUBROUTINE name (argl,arg2,...,argn) 

where 

name is the symbolic name of the subroutine to be 

defined . 

(argl , . . . ,argn) is an optional list of dummy arguments. 
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Table 15-2 
Basic External Functions (FORTRAN-10 Defined Functions 



Function 


Mnemonic 


Definition 


Number of 
Arguments 


Typ 


e of 


Argument 


Function 


Exponential : 
Real 
Double 
Complex 


EXP 

DEXP 

CEXP 


n 


1 
1 
1 


Real 

Double 

Complex 


Peal 

Double 

Complex 


Logar ithm : 
Real 

Double 

Complex 


ALOG 

ALOG10 

DLOG 

DLOG10 

CLOG 


In (Arg) 
log (Arg) 
In (Arg) 
log (Arg) 
In (Ara) 


1 

1 
1 
1 
1 


Real 

Real 

Double 

Double 

Complex 


Real 

Real 

Double 

Double 

Complex 


Square Root: 
Real 
Double 
Complex 


SQRT* 
DSQRT 
CSQRT 


(Arg) **l/2 
(Arq)**l/2 
(Arg) **l/2 


1 

1 
1 


Real 

Double 

Complex 


Real 

Double 

Complex 


Sine : 

Real (radians) 


SIN* 




1 


Real 


Real 


*Generic functions 
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Basic External Functions (FORTRAN- 10 Defined Functions) 



Pni-ir- +■ i ai 



I 



Real (degrees) 
Double (radians) 
Complex 



Cosine : 

Peal (radians) 
Real (degrees) 
Double (radians) 
Complex 



Sine 

Cosine 

Tangent 



Arc sine 



Arc cosine 



Arc tangent 
Real 
Double 
Two REAL arguments 



SIND 
DSIN 
CSIN 



COS* 
COSD 
} DCOS 

ccos 



SINK- 
COSH 
TANH 



AS IN 



ACOS 



, ATAN* 
I DATAN 
! ATAN 2* 



LlOll 



sin(Arg), 



Icos (Arg)( 



sinh (Arg) 
cosh (Arg) 
tanh (Arg) 



asin (Arg) 
acos (Arg) 



a tan (Arg) 
datan (Arg) 
atan (Argl/Arg2; 



l^UMIUCL <J J- 

Arguments 



x y (jc u j. 



Argument 



Real 

Double 

Complex 



Real 
Real 
Double 
Complex 



Real 
Real 
Real 



Real 



Real 



Real 

Double 

Real 



Function 



Real 

Double 

Complex 



Real 
Real 
Double 
Complex 



Real 
Real 
Real 



Real 



Real 



Real 

Double 

Peal 



en 

G 
W 
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Q 
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Table 15-2 (Cont.) 
Basic External Functions (F0PTRAN-1C Defined Functions) 



m 
i 



Function 


Mnemonic 


Def init ion 


Number of 
Arguments 


Type of 


Argument 


Function 


Two DOUBLE arguments 


DAT AN 2 


atan (Argl/Arg 2) 


2 


Double 


Double 


Complex Conjugate 


CONJG 


Arg=X+iY,CONJG=X-iY 


1 


Complex 


Complex 


Random Number 


RAN 


Result is a random 




Inteqer , 


Real 






number in the range 


1 Dummy 


Real , 








of to 1.0 


Argument 


Double , 
or 




Remainder of time limit 


TIM2G0 


Remainder of time 


1 Dummy 


Integer , 


Real 






limit for job in 


Argument 


Real , 








seconds 




Double , 
or Complex 
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The following rules control the structuring of a subroutine 
subprogram: 

1. You may not use the symbolic name of the subprogram in any 
statement within the defined subprogram except the SUBROUTINE 
statement itself. 

2. You may not use the given dummy arguments in an EQUIVALENCE, 
COMMON, or DATA statement within the subprogram. 

3. The subroutine subprogram may define or redefine one or more 
of its arguments so as to effectively return results. 

4. The subroutine subprogram may contain any FORTRAN-10 
statement except BLOCK DATA, FUNCTION, another SUBROUTINE 
statement, or any statement that either directly or 
indirectly references the subroutine being defined or any of 
the subprograms in the chain of subprogram references leading 
to this subroutine. 

5. Dummy arguments that represent statement labels may be either 
an * , $ , or & . 

6. The subprogram should contain at least one RETURN statement 
and must be terminated by an END statement. The RETURN 
statements indicate the logical end of a computational 
routine; the END statement signifies the physical end of the 
subroutine . 

7. Subroutine subprograms may have as many entry points as 
desired (see description of ENTRY statement given in Section 
15.7) . 



15.5.1 Referencing Subroutines (CALL Statement) 

You must reference subroutine subprograms by using a CALL statement of 
the following form: 

CALL name (argl ,arg2, . . . ,argn) 

where 

name is the symbolic name of the desired 

subroutine subprogram. 

(argl , . . . ,argn) is an optional list of actual arguments. If 

the list is included, the given actual 
arguments must agree in order, number, and 
type with the corresponding dummy arguments 
given in the defining SUBROUTINE statement. 

The use of literal constants is an exception to the rule requiring 
agreement of type between dummy and actual arguments. An actual 
argument in a CALL statement may be: 

1. a constant 

2. a variable name 
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3. an array element identifier 

4. an array name 

5. an expression 

6. the name of an external subroutine, or 

7. a statement label. 
Example : 

The subroutine 

SUBROUTINE MATRIX ( I , J , K , M , * ) 

END 
may be referenced by 

CALL MATRIX (10 ,20, 30 ,40 ,$101) 

15.5.2 FORTRAN -1 Supplied Subroutines 

FORTRAN-10 provides you with an extensive group of predefined 
subroutines. Table 15-3 gives the descriptions and names of these 
predefined subroutines. 

15.6 RETURN STATEMENT AND MULTIPLE RETURNS 

The RETURN statement causes control to be returned from a subprogram 
to the calling program unit. This statement has the form: 

RETURN (standard return) 

or 

RETURN e (multiple returns) 

where e represents an integer constant, variable, or expression. The 
execution of this statement in the first of the foregoing forms (i.e., 
standard return) causes control to be returned to the statement of the 
calling program that follows the statement that called the subprogram. 

The multiple returns form of this statement, i.e., RETURN e, enables 
you to select any labeled statement of the calling program as a return 
point. When the multiple returns form of this statement is executed, 
the assigned or calculated value of e specifies that the return is to 
be made to the eth statement label in the argument list of the calling 
statement. The value of e should be a positive integer that is equal 
to or less than the number of statement labels given in the argument 
list of the calling statement. If e is less than 1 or is larger than 
the number of available statement labels, a standard return operation 
is performed. 
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NOTE 

A dummy argument for a statement label 
must be either a *, $, or & symbol. 

You may use any number of RETURN (standard return) statements in any 
subprogram. The use of the multiple returns form of the RETURN 
statement, however, is restricted to subroutine subprograms. The 
execution of a RETURN statement in a main program will terminate the 
program. 

Example 

Assume th<? following statement sequence in a main program: 



CALL EXAMP(1,$10,K,$15,M,$20) 
GO TO 101 



10 



15 



20 



15-15 



SUBPROGRAM STATEMENTS 



Assume the following statement sequence in the called SUBROUTINE 
subprogram : 

SUBROUTINE EXAMP (L, *,M, *,N,*) 



RETURN 



RETURN 



RETURN (C/D) 



END 

Each occurrence of RETURN returns control to the statement GO TO 101 
in the calling program. 

If, on the execution of the RETURN (C/D) statement, the value of (C/D) 
is : 



Less than or equal to: 




Greater than or equal to: 
4 



The following is performed: 

a standard return to the GO TO 101 
statement is made 



the return is made to statement 
the return is made to statement 
the return is made to statement 



10 

15 
20 



The following is performed: 
a standard return to the GO TO 101 
statement is made. 



15.6.1 Referencing External FUNCTION Subprogram 

Reference an external function subprogram by using its assigned name 
as an operand in an arithmetic or logical expression in the calling 
program unit. The name must be followed by an actual argument list. 
The actual arguments in an external function reference may be: 

1. a variable name, 

2. an array element identifier, 

3. an array name, 

4. an expression, 

5. a statement number, or 
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6. the name of another external procedure FUNCTION or 
SUBROUTINE) . 



NOTE 

Any subprogram name to be used as an 
argument to another subprogram must 
first appear in an EXTERNAL statement 
(Chapter 6) in the calling program unit. 



Example 

The subprogram defined as: 

INTEGER FUNCTION ICALC ( IX , I Y , I Z ) 



RETURN 
END 

may be referenced in the following manner: 



TOTAL=ICALC ( IAA , IAB , IAC) +500 



15.7 MULTIPLE SUBPROGRAM ENTRY POINTS (ENTRY STATEMENT) 

FORTRAN-10 provides an ENTRY statement that enables you to specify 
additional entry points into an external subprogram. This statement 
used in conjunction with a RETURN statement enables you to employ only 
one computational routine of a subprogram that contains several such 
routines. The form of the ENTRY statement is: 

ENTRY name (argl,arg2, . . . ,argn) 

wh e r e 

name is the symbolic name to be assigned the 

desired entry point 

(argl , . . . ,argn) is an optional list of dummy arguments. This 

list may contain 

1. variable names, 

2. array declarators, 
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3. the name of an external procedure 
(SUBROUTINE or FUNCTION) , or 

4. statement label identifiers that are 
denoted by either a *, $, or & symbol. 

The rules for the use of an ENTRY statement follow: 

1. The ENTRY statement allows entry into a subprogram at a place 
other than that defined by the subroutine or function 
statement. You may include any number of ENTRY statements in 
an external subprogram. 

2. Execution is begun at the first executable statement 
following the ENTRY statement. 

3. Appearance of an ENTRY statement in a subprogram does not 
negate the rule that statement functions in subprograms must 
precede the first executable statement. 

4. Entry statements are nonexecutable and do not affect the 
execution flow of a subprogram. 

5. You may not use an ENTRY statement in a main program or have 
a subprogram reference itself through its entry points. 

6. You may not use an ENTRY statement in the range of a DO or an 
extended DO statement construction. 

7. The dummy arguments in the ENTRY statement need not agree in 
order , number , or type with the dummy arguments in SUBROUTINE 
or FUNCTION statements of any other ENTRY statement in the 
subprogram. However, the arguments for each call or function 
reference must agree with the dummy arguments in the 
SUBROUTINE, FUNCTION, or ENTRY statement that is referenced. 

8. Entry into a subprogram initializes only the dummy arguments 
of the referenced ENTRY statement. 

9. You may not reference a dummy argument unless it appears in 
the dummy list of an ENTRY, SUBROUTINE, or FUNCTION statement 
by which the subprogram is entered. 

10. The source subprogram must be ordered such that references to 
dummy arguments in executable statements follow the 
appearance of the dummy argument in the dummy list of a 
SUBROUTINE, FUNCTION, or ENTRY statement. 

11. Dummy arguments that were defined for a subprogram by some 
previous reference to the subprogram are undefined for 
subsequent entry into the subprogram. 

12. The value of the function must be returned by use of the 
current entry name. 
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Table 15-3 
FORTRAN-10 Library Subroutines 



Subroutine Name Effect 



AXIS CALL AXIS(X,Y,ASC,NASC,S,THETA,XMIN,DX) 

AXIS causes an axis with tick marks and scale values 
at 1-inch increments to be drawn. An identifying 
label may also be plotted along the axis. Parameters 
X and Y specify the start of the axis. The axis is 
plotted, starting at X, Y, at an angle of THETA 
degrees for a distance of S inches. The angle THETA 
is usually either (X axis) or 90.0 (Y axis). 
Characters ASC of array ASC are plotted as a label 
for the axis drawn. If NASC is positive, the tic 
marks, label, and scale values are placed on the 
counterclockwise side of the axis; if NASC is 
negative, the foregoing items are placed on the 
clockwise side of the axis. 

Parameter XMIN is the value of the scale at the 
beginning of the axis; parameter DX is the change in 
scale for a 1-inch increment. The values of XMIN and 
DX may be determined by subroutine SCALE. 

DATE CALL DATE (array) 

This subroutine places today's date as left-justified 
ASCII characters into a dimensioned 2-word array. 
The date is in the form: 

dd-mmm-yy 

where dd is a 2-digit day (if the first digit is 0, 
it is converted to a blank) , mmm is a 3-letter month 
abbreviation, e.g., Mar, and yy is a 2-digit year. 
The data is stored in ASCII code, left-justified, in 
the two words. 

DEFINE FILE CALL DEFINE FILE (u , S , v , f ,p j ,pg ) 

The arguments of this subroutine are defined as 
follows : 

u = logical FORTRAN-10 device numbers. 

s = the size of the records comprising the file 
being defined. The argument s may be an integer 
constant or variable. 



v = 



an associated variable. The associated variable 
is an integer variable that is set to a value 
that points to the record that immediately 



follows the last record transferred. This 
variable is used by the FIND statement (Chapter 
10). At the end of each FIND operation, the 
variable is set to a value that points to 4 - u ~ 
record found. The variable v cannot appea 
the I/O list of any I/O statement that acce 
the file set up by the DEFINE FILE statement 
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Table 15-3 (Cont.) 
FORTRAN-10 Library Subroutines 



Subroutine Name Effect 



f = filename to be given the file being defined. 

pj = your project number. 

pg = your programmer's number. 



NOTE 

Numbers pj and pg identify your File 
Directory . 



Example 

The statement 

CALL DEFINE FILE ( 1 , 10 , ASCVAR, ' FORTFL . DAT • , , 0) 

establishes a file named FORTFL.DAT on device 01, a 
disk, which contains ten word records. The 
associated variable is ASCVAR, and the file is in 
your area. 

A DEFINE FILE call can be used to establish and 
define the structure of each file to be used for 
random access I/O operations. 



NOTE 

the OPEN statement may be used to perform the 
same functions as DEFINE FILE. 



DUMP CALL DUMP ( L ( 1 ) , U ( 1 ) , F ( 1) , . . . , L (n) , U (n) , F (n) ) 

DUMP causes particular portions of core to be dumped. 
L(l) and U(l) are the variable names that give the 
limits of core memory to be dumped. Either L(l) or 
U(l) may be upper or lower limits. F(l) is a number 
indicating the format in which the dump is to be 
performed: = octal, 1 = real, 2 = integer, and 3 = 
ASCII. 

If F is not 0, 1, 2, 3, the dump is in octal. If 
F(n) is missing, the last section is dumped in octal. 
If U(n) and F(n) are missing, an octal dump is made 
from L to the end of the job area. If L(n), U(n), 
and F(n) are missing, the entire job area is dumped 
in octal. 

The dump is terminated by a call to EXIT. 



15-20 



SUBPROGRAM STATEMENTS 



Table 15-3 (Cont.) 
FORTRAN-10 Library Subroutines 



Subroutine Name 



Effect 



ERRSET 



CALL ERRSET (N) 



ERRSET allows you to control the typeout of 
execution-time arithmetic error messages. ERRSET is 
called with one integer argument. 

Typeout of all arithmetic and library error messages 
is suppressed after N occurrences of these error 
messages. If ERRSET is not called, the default value 
of N is 2. 



ERRSNS 



CALL ERRSNS (I, J) 

ERRSNS allows you to determine the exact nature of an 
error on READ, WRITE, OPEN, or CLOSE that was trapped 
with the "ERR= statement label" option. ERRSNS 
returns one or two integer values that describe the 
status of the last I/O operation performed by FOROTS . 
(The second integer value is optional.) 

CALL ERRSNS (I, J) 

returns a FORTRAN-standardized number in I and a 
processor-dependent number in J to describe the last 
I/O operation. See Appendix H and Table H-l for more 
information and a detailed description of the values 
returned . 



EXIT 



EXIT 



EXIT returns control to the Monitor and, 
terminates the execution of the program. 



therefore , 



ILL 



CALL ILL 



LEGAL 



ILL sets the ILLEG flag. If the flag is set and an 
illegal character is encountered in floating- 
point/double- precision input, the corresponding word 
is set to zero. 

CALL LEGAL 

LEGAL clears the ILLEG flag. If the flag is set and 
an illegal character is encountered in the floating- 
point/double- precision input, the corresponding word 
is set to zero. 



LINE 



CALL LINE (X,Y,N,K) 



LINE causes a line to be drawn through the N points 
specified by (X (1) , Y (1) ) , (X ( 2) , Y ( 2) ) . . . (X (N) , Y (N) ) 
where the elements of X and Y are spaced K words 
apart in storage. 
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Table 15-3 (Cont.) 
FORTRAN-10 Library Subroutines 



Subroutine Name 



Effect 



MKTBL 



NUMBER 



CALL MKTBL (I, J) 

MKTBL specifies a special character set where I is 

the number to be assigned the set and J contains the 
starting address of a character table of 200(8) 

consecutive words. In each character table word, the 

left half contains the number of strokes in the 

character (0 if nothing is to be plotted for the 

word) and the right. half contains the address of the 
table of strokes for the character. 

CALL NUMBER (X, Y, SIZE, FNUM, THETA, NDIGIT) 



PDUMP 



NUMBER causes a floating- point number to be plotted 
as text. Parameters X, Y, SIZE, and THETA have the 
same meanings as for the SYMBOL call. Parameter 
NDIGIT is the number of digits plotted to the right 
of the decimal point. If NDIGIT is a negative value, 
only the integer part of the number is plotted. FNUM 
specifies the number to be plotted. 

CALL PDUMP(L(1) ,U(l),F(l),...,L(n),U(n),F(n) 

The arguments of PDUMP are the same as those of 
DUMP. PDUMP is the same as DUMP except that control 
returns to the calling program after the dump has 
been executed. 



PLOT 



CALL PLOT(X, Y,IPEN) 



PLOT moves 


th 


current posi 
If IPEN=3, th 
IPEN=2 the pe 
the pen is le 
If the valu 


pen action 


is 


positive val 
indicated mot 


new origin 
plotter . 



e pen in a straigh 
tion to the position 
e pen is raised before 
n is lowered before mo 
ft unchanged from its 
e of IPEN is negative 

the same as for 
ues except that on 
ion, the new pen posit 
and the output buff 



t line from its 

specified by X,Y. 

the movement; if 

vement; if IPEN=1 

previous state. 

(-1, -2 or -3) the 

the corresponding 

completion of the 

ion is taken as a 

er is sent to the 



PLOTS 



The plotter is not released on completion of the 
specified movement. 

CALL PLOTS (I) 

PLOTS is the plotter setup routine. If the plotter 
is not available, I is set to -1; if it is 
available, I is set to 0. This call must be the 
first plotter routine called. 



15-22 



SUBPROGRAM STATEMENTS 



Table 15-3 (Cont.) 
FORTRAN-10 Library Subroutines 



Subroutine Name 



Effect 



RELEAS 



SAVRAN 



SCALE 



SETABL 



CALL RELEAS (unit) 

RELEAS closes out I/O on a device initialized by the 
FORTRAN Operating System and returns it to the 
uninitialized state. RELEAS should be the last call 
referencing that device. 

CALL SAVRAN(I) 

SAVRAN is called with one integer argument. SAVRAN 
sets its argument to the last random number 
(interpreted as an integer) that has been generated 
by the function RAN. 

CALL SCALE(X,N,S,XMIN,DX) 

SCALE selects scale values for an AXIS call where X 
and N specify a 1-dimensional array X with the length 
N. Parameter S specifies the length of the desired 
axis, SCALE determines a value of DX that allows X to 
be plotted in S inches. XMIN is selected as the 
smallest element of the array X, and is truncated to 
be a multiple of DX. 

CALL SETABL (I, J) 

SETABL specifies a character set where I is an 
integer that gives the number of the desired 
character set. If a character set has been defined 
by 1/ the value of J is set to 0; if not, J is set 
to -1. The standard ASCII character set is defined 
as 1. 



SETRAN 



SLITE 



CALL SETRAN (I) 

SETRAN has one argument, which must be a non-negative 
integer <2(31). The starting value of the function 
RAN is set to the value of this argument, unless the 
argument is zero. In this case, RAN uses its normal 
starting value. 

CALL SLITE(I) 



SLITET 



SLITE turns sense lights on or off. I is an integer 
expression. For KK36, sense light I will be turned 
on. If 1=0, all sense lights will be turned off. 

CALL SLITET(I,J) 

SLITET checks the status of sense light I, sets the 
variable J accordingly, and turns off sense light I. 
If i is on, j is set to 1; and if i is off, j is set 
to 2. 
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Table 15-3 (Cont.) 
FORTRAN-10 Library' Subroutines 



Subroutine Name 



Effect 



SORT 



SSWTCK 



SYMBOL 



TIME 



CALL SORT ( , OUTPUT/SWS = INPUT/SWS / INPUT/SWS') 

SORT sorts one or more files using the SORT program. 
The argument is an ASCII string that represents 
(version 3 or later) the standard SORT command 
string. Its components are: 

OUTPUT = file specification of the output file. 

INPUT = file specification of the input file(s). 

SWS = one or more switches for the output file, 
the input file(s), the sorting process, and 
sometimes SCAN. The switches not allowed 
in the FORTRAN call are:/BLCCK, /COMP3 , 
/EBCDIC, /INDUSTRY, /LABEL, /SIXBIT, and 
/VERSION. 

Wild card format is not allowed in the FORTRAN call. 

For information about using the SORT program, see the 
SORT USER'S GUIDE (AA-0997C-TB) . Example: 

CALL SORT( l SRTFIL.SRT=INSTRT/REC:80/KEY:l:2') 

SSWTCH(I,J) 

SSWTCH checks the status of data switch i (0<i<35) 
and sets the variable J accordingly. If I is set 
OFF, J is set to 1; and, if I is ON, J is set to 2. 

CALL SYMBOL(X,Y,SIZE,ASC,THETA,NASC) 

SYMBOL raises the plotter pen and moves it to 
position specified by X and Y. Lower pen and plot 
characters found in array ASC. Parameter SIZE 
specifies the height of the characters plotted in 
inches (floating- point values) ; THETA specifies the 
direction of the base line on which the text of array 
ASC is to be plotted, and NASC specifies the number 
of characters in array ASC. 

CALL TIME(X) or CALL TIME(X,Y) 

TIME returns the current time in its argument (s) in 
left-justified ASCII characters. If TIME is called 
with one argument, 

CALL TIME(X) 
the time is in the form 



hh:mm 

where hh is the hours (24-hour time) and mm 
minutes. If a second argument is requested, 

CALL TIME(X,Y) 



is 



the 
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Table 15-3 (Cont.) 
FORTRAN-10 Library Subroutines 



Subroutine Name 



Effect 



the first argument is returned in the same form as 
the one-argument call, and the second has the form 

bss. t 

where b is a blank, ss is in seconds, and t is in 
tenths of a second. 



WHERE 



CALL WHERE(X,Y) 

Variables X and Y are set to the values which 
identify the current position of the pen. 
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BLOCK DATA SUBPROGRAMS 



16.1 INTRODUCTIO N 

Use block data subprograms to initialize data to be stored in any 
common areas. You may use only specification and DATA statements, 
i.e., DATA,, COMMON, DIMENSION, EQUIVALENCE, and TYPE, in BLOCK DATA 
subprograms. A subprogram of this type must start with a BLOCK DATA 
statement . 

You may enter initial values into more than one labeled common block 
in a. single subprogram of this type. 

An executable program may contain more than one block data subprogram. 



16.2 BLOCK DATA STATEMENT 

The form of the BLOCK DATA statement is: 

BLOCK DATA name 

where 

name is a symbolic name given to identify the 

subprogram . 
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APPENDIX A 
ASCII-1968 CHARACTER CODE SET 



The character code set defined 
American National Standard for 
given in the following matrix. 



in the X3. 4-1968 Version of the 
Information Interchange (ASCII) is 



1st 2 


Last 


octal digit 








octal 









1 2 


3 


4 


5 6 


digits 
















OOx 


NUL 




SOH STX 


ETX 


EOT 


ENQ ACK 


Olx 


BS 




HT LF 


VT 


FF 


CR SO 


02x 


DLE 




DCl DC 2 


DC3 


DC4 


NAK SYN 


03x 


CAN 




EM SUB 


ESC 


FS 


GS RS 


04x 


14 




i 
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M N 


12x 
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Y 
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q 
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t 
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x 




y 


z 


{ 


1 
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Characters inside parenthe 


>es are ASCII- 1963 Standard. 






NUL 




Null 




DLE 


Data Link Escape 






SOH 




Start of Heading 




DCl 


Device Control 1 






STX 




Start of Text 




DC 2 


Device Control 2 






ETX 




End of Text 




DC3 


Device Control 3 






EOT 




End of Transmission 


DC4 


Device Control 4 






ENQ 




Enquiry 




NAK 


Negative Acknowledge 






ACK 




Acknowledge 




SYN 


Synchronous Idle 






BEL 




Bell 




ETB 


Fnd of Transmission Block 






BS 




Backspace 




CAN 


Cancel 






HT 




Horizontal Tabulation 


EM 


End of Medium 






LF 




Line Feed 




SUB 


Substitute 






VT 




Vertical Tabulation 




ESC 


Escape 






FF 




Form Feed 




FS 


File Separator 






CR 




Carriage Return 




GS 


Group Separator 






SO 




Shift Out 




RS 


Record Separator 






SI 




Shift In 




US 
DEL 


Unit Separator 
Delete (Rubout) 



BEL 

SI 

ETB 

US 



G 
O 
W 



o 
w 
DEL 
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APPENDIX B 
USING THE COMPILER 



This appendix explains how to access FORTRAN-10 and how to make use of 
the information it provides. You should be familiar with the 
FORTRAN-10 language and the DECsystem-10 TOPS-10 monitor. 



B . 1 RUNNING THE COMPILER 

The command to run FORTRAN-10 is: 

.R FORTRA 

The compiler responds with an asterisk (*) and is then ready to accept 
a command string. A command is of the general form: 

object filename, listing f ilename = source filename (s) 

You are given the following options: 

1. The filenames can be fully specified SFD paths. 

2. You may specify more than one input file in the compilation 
command string. These files will be logically concatenated 
by the compiler and treated as one source file. 

3. Program units need not be terminated at file boundaries and 
may consist of more than one file. 

4. If no object filename is specified, no relocatable binary 
file is generated. 

5. If no listing filename is specified, no listing is generated. 

6. If no extension is given, the defaults are . LST (listing), 
.REL (relocatable binary), and .FOR (source) for their 
respective files. 



B.l.l Switches Available with FORTRAN-10 



Switches to FORTRAN-10 are accepted anywhere in the command string. 
They are totally position- and file-independent. Table B-l lists the 
switches . 
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Table B-l 
FORTRAN-10 Compiler Switches 



Switch 


Meaning 


Defaults 


CROSSREF 


Generates a file that can be input to 
the CREF program 


OFF 


DEBUG 


(See Section B. 1.1.1.) 


OFF 


EXPAND 


Includes the octal-formatted version of 
the object file in the listing. 


OFF 


INCLUDE 


Compiles a D in card column 1 as 
as space . 


OFF 


KA10 


Compiles code to run on a KA10 


Compilation 




processor . 


processor 


KI10 


Compiles code to run on a KI10 


Compilation 




processor . 


processor 


LNMAP 


Produces a line number/octal location 
map in the listing only if /MACROCODE 
was not specified. 


OFF 


MACROCODE 


Adds the mnemonic translation of the 
object code to the listing file. 


OFF 


NOERRORS 


Does not print error messages 
on the terminal. 


OFF 


NOWARNINGS 


Does not output warning messages. 


OFF 


OPTIMIZE 


Performs global optimization. 


OFF 


SYNTAX 


Performs syntax check only. 


OFF 



Each switch must be preceded by a slash (/) . Switch names need only 

contain those letters that are required to make the switch name 

unique. You are encouraged to use at least three letters to prevent 
conflict with switches in future implementations. 

Example 

.R FORTRA 

*OFILE f LFILE=SFILE/MAC f S2FILE 

The /MAC switch will cause the MACRO code equivalent of SFILE and 
S2FILE to appear in LFILE.LST. 

If you do not specify a processor (KA10 or KI10 switch) , the code will 
be compiled for the processor type on which the compilation occurs. 
The processor type of the code in the object file and all switches, 
used or implied, are printed at the top of each listing page. 
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B. 1.1.1 T he /DEBUG Switch - The /DEBUG switch tells FORTRAN-10 to 
compile a series of debugging features into your program. Several of 
these features are specifically designed to be used with FORDDT. 
Refer to Appendix E for more information. By adding the modifiers 
listed in Table B-2/ you can include specific debugging features. 



Table B-2 
Modifiers to /DEBUG Switch 



Modifiers 


Meaning 


: DIMENSIONS 


Generates dimension information in .REL file for 
FORDDT. 


: TRACE 


Generates references to FORDDT required for its 
trace features (automatically activates :LABELS) . 


: LABELS 


Generates a label for each statement of the form 
"line-number L." (This option may be used without 
FORDDT. ) 


: INDEX 


Forces DO LOOP indices to be stored at the 
beginning of each iteration rather than held in a 
register for the duration of the loop. 


: BOUNDS 


Generates the bounds checking code for all array 
references. Bounds violations will produce 
run-time error messages. Note that the technique 
of specifying dimensions of 1 for subroutine 
arrays will cause bounds check errors. (You may 
use this option without FORDDT.) 


:NONE 


Do not include any debug features. 


:ALL 


Enable all debugging aids. 



The format of the /DEBUG switch and its modifiers is as follows: 

/DEBUG:modif ier 
or 

/DEBUG: (modifier list) 
Options available with the /DEBUG modifiers are: 

1. No debug features - Either do not specify the /DEBUG switch 
or include /DEBUG:NONE. 

2. All debug features - Either /DEBUG or /DEBUG:ALL. 

3. Selected features - Either a series of modified switches; 
i . e . , 

/DEBUG : BOU/DEBUG : LAB 

or a list of modifiers 

/DEBUG: (BOU,LAB, . . . ) 
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4. Exclusion of features (if you wish all but one or two 

modifiers and do not wish to list them all, you may use the 

prefix "NO" before the switch you wish to exclude) . The 

exclusion of one or more features implicitly includes all the 

others, i.e., /DEBUG:NOBOU is the same as 
/DEBUG: (DIM ,TRA, LAB , IND) . 

If you include more than one statement on a single line, only the 
first statement will receive a label (/DEBUG:LABELS) or FORDDT 
reference (/DEBUG:TRACE) . (The /DEBUG option and the /OPTIMIZE option 
cannot be used at the same time.) 



NOTE 

If a source file contains line sequence 
numbers that occur more than once in the 
same subprogram, the /DEBUG option 
cannot be used. 



The following formulas may be used to determine the increases in 
program size that will occur as a result of the addition of various 
/DEBUG options. 

DIMENSIONS For each array, 3+3*N words where N is the number 
of dimensions, and up to three constants for each 
dimension . 



: TRACE 
: LABELS 
: INDEX 

: BOUNDS 



One instruction per executable statement. 

No increase. 

One instruction per inner loop plus one 
instruction for some of the references to the 
index of the loop. 



For each array, the formula is 
DIMENSIONS: . 



the 



same as 



For each reference to an array element, use 5+N 
words where N is the number of dimensions in the 
array. If you do not specify :BOUNDS, 
approximately 1+3* (N-l) words will be used. 



B . 1 . 2 COMPIL-Class Commands 

You can invoke FORTRAN-10 by using COMPIL-class commands. These 
commands cause the monitor to run the COMPIL program, which interprets 
the command and constructs new command strings for the system program 
actually processing the command. When both FORTRAN-10 and F40 are 
present in your DECsystem-10 system, you can specify which compiler is 
to be use.d by adding the switches /F10 or /F40 to the following 
commands : 

COMPILE 
LOAD 
EXECUTE 
DEBUG 



B-4 



USING THE COMPILER 

Example 

.EXEC ROTOR/F10 

The compiler switches KA, KI , OPT, CREF, and DEBUG may be specified 
directly in COMPIL-class commands and nay be used globally or locally. 

Example 

. EXECUTE/CREF/KA/F10 PI . FOR , P2 . FOR/DEBUG : NOBOU 

The other compiler switches must be passed in parentheses for each 
specific source file. 

Example 

.EXECUTE P1.F0R(M,I) 

Refer to the DECsystem-10 Operating System Command s Manual for 
further information. 



B . 2 READING A FORTRAN-10 LISTING 

When you request a listing from the FORTRAN-10 compiler, it contains 
the following information: 

1. A printout of the source program plus an internal sequence 
number assigned to each line by the compiler. This internal 
sequence number is referenced in any error or warning 
messages generated during the compilation. If the input Tile 
is 1 ine-sequenced , the number from the file is used. If code 
is added via the INCLUDE statement, all INCLUDEd lines will 
have an asterisk (*) appended to their line-sequence number. 

2. A summary of the names and relative program locations (in 
octal) of scalars and arrays in the source program plus 
compiler generated variables. 

3. All COMMON blocks and the relative locations (in octal) of 
the variables in each COMMON block. 

4. A listing of all equivalenced variables or arrays and their 
relative locations. 

5. A listing of the subprograms referenced (both user defined 
and FORTRAN-10 defined library functions) . 

6. A summary of temporary locations generated by the compiler. 

7. A heading on each page of the listing containing the program 
unit name (MAIN., program, subroutine or function, principal 
entry), the input filename, the list of compiler switches, 
and the date and time of compilation. Whether a specific 
processor switch (/KA10, /KI10) was used and the processor 
for which the code was generated is also at the top of the 
1 isting page . 

8. If you used the /MACRO switch, a mnemonic printout of the 
generated code (in a format similar to MACRO-10) is appended 
to the listing. This section has four fields: 
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LINE: This column contains the internal sequence number 
of the line corresponding to the mnemonic code. It 
appears on the first of the code sequence associated 
with that internal sequence number. An asterisk 
indicates a compiler inserted line. 

LOC : The relative location in the object program of the 
instruction . 

LABEL: Any program or compiler generated label. 
Program labels have the letter "P" appended. Labels 
generated by the compiler are followed by the letter 
"M" . Labels generated by the compiler and associated 
with the /DEBUG:LABELS switch consist of the internal 
sequence number followed by an "L". 

GENERATED CODE: The MACRO-10 mnemonic code. 

If you used the /LNMAP switch and did NOT use the /MACRO 
switch, a line number/octal location map is appended to the 
listing. This section lists the line numbers in increments 
of 10 on subsequent lines and each number from through 9 
for each line in adjacent columns. The numbers appearing 
inside the matrix are the relative octal locations of the 
statements in the FORTRAN program unit. For example, to find 
the relative octal location of line number 001043, find the 
row marked 001040 and then column 3 on that line. The number 
in that place is the desired relative location. This listing 
can be very large and sparse for line-numbered files with 
large increments, such as those produced by SOS. 



NOTE 

One FORTRAN line can produce multiple octal 
locations. In this case the line number map lists 
only the first location. 



9. A list of all argument blocks generated by the compiler. A 
zero argument appears first followed by argument blocks Cor 
subroutine calls and function references (in order of their 
appearance in the program) . Argument blocks for all I/O 
operations follow this. 

10. Format statement listings. 

11. A summary of errors detected or warning messages issued 
during compilations. 



B.2.1 Compiler Generated Variables 

In certain situations the compiler will generate internal variables. 
Knowing what these variables represent can help you read the macro 
expansion. The variables are of the form: 

.letter digit digit digit digit 
i.e., .S0001 
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where : 

Letter Function of Variable 

A Register save area. 

F Arithmetic statement function formal parameters. 

I Result of a DO LOOP initial value expression or 
parameter of an adjustably dimensioned array. 

Result of a common subexpression (see Section C.2.1.1) 
or constant computation (C.2.1.3). 

Q Temporary storage for expression values. 

R Result of reduced operator strength expression 
(C.2.1.2) . 

S Result of the DO LOOP step size expression of computed 
iteration count .for a loop. 

You may find these variables on the listing under SCALARS and ARRAYS. 

The following example shows a listing where all these features are 
pointed out. 
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Name of 
Program 



Name of 
Source File 



Compiler 
Version 



MAIN. 



TIM1.F0R 



FORTRAN V.5(515) /KI/M 19-NOV-76 15:00 PAGE 1 

! I 

Macro Code equivalent included 
code was compiled for a KI processor 



CD 
I 
00 



00001 




IMPLICIT INTEGER 


(A-Z) 


00002 




DIMENSION A (100, 


200) ,B(100, 200) 


00003 




GUM1=0 




00004 




SUM 2 = 




00005 




DO 100 J=l,200 




00006 




DO 100 1=1,100 




00007 




K1=I*J 




00008 




IF (Kl . LT. 500 


.OR. Kl .GT. 1500) K1=0 


00009 




A(I , J) =K1 




00010 




K2=I+J 




00011 




IF (K2 .EC- 100 


.OR. K2 .EQ. 200 .OR. K2.EQ.300) K2=K2+1 


C 1 2 




3(1, J) =K2 




00013 




SUM1=SUM1+K1 




00014 




SUM2=SUM2+K2 




00015 


100 


CONTINUE 




00016 


C 






00017 




TYPE 10,SUM1,SUM2 


00018 


10 


FORMAT (7H SUM1= 


,I9,1CH SUM2= ,19) 


C0019 




END 





c 

CO 



TJ 



SUBPROGRAMS CALLED 



The relative address of each variable is given 



compiler generated variable 



*K1 1 B 2 *J 47042 A 
.S0000 116104 *SUM2 116105 *I 116106 *K2 



47043 .S0001 116103 
116107 *SUM1 116110 



CD 
I 



Internal sequence number on first instruction that goes with this line 
octal displacement of instruction 



LINE 



LOC 

n 
1 

2 
3 
4 
5 
6 
7 

10 

11 

12 
13 
14 
15 



LABEL GENERATED CODE 



211 : 
3M: 
4M: 



TDPT 
U i.' V- U 


u , u 


JSP 


16, RESET 




0,0 


SETZE 


2,SUM1 



MOVEM 2,SUM2 

MOVE 2, [777470000001] 

HLREM 2,.S0000 

HRRZM 2, J 

MOVE 2, [777634000001] 

MOVE 3, J 

IMULI 3,0(2) 

MOVEM 3,K1 

CAIL 3,764 

CAILE 3,2734 



c 
en 

M 

a 
a 

cc 
w 

o 
o 

3 

M 

f 
pj 



16 JRST 0,6M 

17 JRST 0,5M 

8 20 6M:«* compiler generated label 

SETZ6 4,K1 

MAIN. TIMl.FOR FORTRAN V. 5(515) /KI/M 19-NOV-76 15:00 PAGE 1-1 

9 21 5M: 

MOVE I 3,144 

22 IMUL 3, J 

23 ADDI 3,0(2) 

24 MOVE 4,K1 

2 5 MOVEM 4,A-14 5(3) 

10 26 MOVE 3, J G 
27 ADDI 3,0(2) w 
30 MOVEM 3,K2 a 

11 31 MOVE 5,K2 ° 
32 CAIE 5,144 t-g 



33 CAIN 5,310 

34 JRST 0,8M 



3 5 9M 

11 36 8M 

12 37 7M 



CAIN 5,454 



ACS 3,K2 a 



MOVE I 3,14 4 

40 IMUL 3, J 

41 ADDI 3,0(2) 
4 2 MOVE 5,K2 

4 3 MOVEM 5,B-145(3) 

13 4 4 ADDM 4,SUM1 

14 4 5 ADDM 5, SUM 2 

15 46 10GP:-« proqran label 

AOBJN 2 , 4M 

47 AOS 2, J 

5 AOSGE 0,.S0000 
51 JRST 0.3M 



17 



19 



52 
53 
54 
55 
56 
57 



MOVE I 


16, 


, 10M 


PUSHJ 


17 . 


-, OUT , 


MOVE I 


16J 


!llM 


PUSHJ 


17, 


, IOLST 


MOVE I 


16, 


P 1M 


PUSHJ 


17 


.EXIT. 



ARGUMENT BLOCKS 



function and subroutine argument blocks 



MAIN. 



60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 

7^ 



1M: 
10M: 



TIM1.FOR 



0,,0 
0,,0 

777773, ,0 
0, ,777777 
0,,0 
0,,0 

340, ,10P 
C,7 
0,,0 

1100, ,SUM1 
1100, ,SUM2 
4nnn . . n 



FORTRAN V.5(515) /KI/M 19-NOV-76 



15:00 



PAGE 1-2 



C 

in 

M 

z 
o 

hi 

o 
o 

M 



FORMAT STATEMENTS (IN LOW SEGMENT) 



18 



116111 
116112 
116113 
116114 
116115 
116116 
116117 



10P; 



(7H S 
UM1 = 
,19,1 
OH 

SUM 2 
= ,19 



MAIN, 



[ NO ERRORS DETECTED ] 



summary of detected errors 



MAIN. TIM1.F0R FORTRAN V. 5(515) /KI 19-NOV-76 15:01 PAGE 1 

00001 IMPLICIT INTEGER (A-Z) 

00002 DIMENSION A ( 100 , 200 ) , B ( 100 , 200) 

00003 SUM1=0 

00004 SUM2=0 

00005 DO 100 J=l f 200 

00006 DC 100 1=1,100 

00007 K1=I*J 

00008 IF (Kl .LT. 500 .OR. Kl . GT . 1500) K1=0 

00009 A(I,J)=K1 

00010 K2=I+J 
00C11 IF (K2 .EQ. 100 .OR. K2 .EQ. 200 .OR. K2.EQ.300) K2=K2+1 

00012 B(I,J)=K2 

00013 SUM1=SUM1+K1 

00014 SUM2=SUM2+X2 

00015 100 CONTINUE £ 

00016 C O 

00017 TYPE 10,SUM1,SUM2 ^ 
w 00018 10 FORMAT(7H SUM1= ,I9,10H SUM2= ,19) = 
m 00019 END 

to Q 

o 
3: 



SUBPROGRAMS CALLED 

SCALARS AND ARRAYS [ " * " NO EXPLICIT DEFINITION - "%" NOT REFERENCED ] 

*K1 1 B 2 *J 47042 A 47043 .S0001 116103 
.S00C0 116104 *SUM2 116105 *I 116106 *K2 116107 *SUM1 116110 

LINE NUMBER/OCTAL LOCATION MAP line number may request with /LNMAP switch 



c 








1 


2 


3 


4 


5 


6 


7 


8 


9 


00000 
00010 


26 


31 


37 


3 
44 


4 
45 


5 
46 


10 


11 
52 


14 


21 
56 



MAIN 



[ NO ERRORS DETECTED ] 



line number 11 starts at octal location 31 (from the 
previous listing, notice that line 11 uses locations 
31 through 36 but only the first location is shown 
here) 





MAIN. 


TIM1 


FOR FORTRAN V.5(515) /KI/OFT/M 19-NOV-76 15:00 




00001 




IMPLICIT INTEGER (A-Z) 


DO 


00002 




DIMENSION A(100,200) ,B(100,200) 


1 

1 — i 


00003 




SUM1=0 


(jO 


00004 




SUM 2=0 




00005 




DO 100 J=l,200 




00006 




DO 100 1=1,100 




00007 




K1=I*J 




00008 




IF (Kl .LT. 500 .OR. Kl . GT . 1500) Kl=0 




00009 




A(I,J) =K1 




00010 




K2=I+J 




00011 




IF (K2 .EQ. 100 .OR. K2 .EQ. 200 .OK. K2.EQ.300) K2=K2+1 




00012 




B(I,J) =K2 




00013 




SUM1=SUM1+K1 




C0014 




SUM2=SUM2+K2 




00015 


100 


CONTINUE 




00016 


c 






00017 




TYPE 10,SUM1,SUM2 




00C18 


10 


FORMAT (7H SUM1= . I9,10H SUM2= ,19) 




00019 




END 



PAGE 1 



G 
in 

M 

Z 
O 

i-3 

a: 

w 

n> 
6 

s 

M 

f 



SUBPROGRAMS CALLED 

SCALARS AND ARRAYS [ " * " NO EXPLICIT DEFINITION "%" NOT REFERENCED ] 

optimizer created variables 

I 

*K1 1 E 2 .R0001 47042 .R0000 47C43 *J 47044 
A 47045 .S0001 116105 .50000 116106 *SUM2 116107 *I 116110 
.O00C1 116111 *K2 116112 *SUM1 116113 

optimizer created variables 

LINE LOC LABEL GENERATED CODE en 

H 

JFCL 0,0 ° 



1 

I Z 

h 4 3 



* 4 

5 
5 6 

7 

10 
optimizer created statement 



11 4M 



JFCL 


0,0 


JSP 


16, RESET, 




0,0 


SETZB 


10,11 


MOVE I 


12,144 


MCVEM 


12, .R0C01 


MOVNI 


7,1 


MOVE I 


7,1 


MOVEM 


12, .50000 



6 


12 


* 


13 




14 


7 


15 


8 


16 



5M: 



17 CAILE 5,2734 



MOVE 
MOVE 


6, 
2, 


,7 

, [777634000001 


MOVE I 
ADD 
MOVE 
CAIL 


4, 
4, 
5, 
5, 


-0(2) 
, .R0C01 
,6 
,764 



M 



20 JRST 0,7M 

21 JRST 0,6M 

8 22 7M: 

MAIN. TIM1.FOR FORTRAN V.5(515) /KI/OPT/M 19-NOV-76 15:00 PAGE 1-1 

MOVE I 5,0 

9 2 3 6M: 

10 24 
25 

11 26 
27 

30 „,... 

31 10M: co 

H 

11 32 9M: O 



W 12 3 3 8M 



X w< 


_> i 


14 


35 


* 


36 


15 


37 


* 


40 




41 


* 


4 2 




43 




44 


* 


45 


* 


46 


* 


47 


* 


50 


17 


51 




52 



MOVEM 


5,A-145(4) 


MOVE 


3,7 


ADDI 


3,0(2) 


CAIE 


3,144 


CAIN 


3,310 


JRST 


0,9M 


CAIN 


3,454 


ADDI 


3,1 


MOVEM 


3,B-145(4) 


ADD 


11,5 


ADD 


10,3 


ADD 


6,7 


AOBJN 


2,5M 


MOVE I 


12,144 


ADDM 


12, .P0001 


ADDI 


7,1 


AOSGE 


0, .soooo 


JRST 


0,4M 


MOVEM 


11,SUM1 


MOVEM 


10,SUh2 


MOVEM 


5,K1 


MOVEM 


3,K2 


MOVE I 


16,11M 


PUSHJ 


17, OUT. 



H 



H 

100P: w 

MOVE I 12,144 
ADDM 12,. POO 01 
1M: 



* 


53 




MOVE I 16,12M 




54 




PUSHJ 17,IOLST 


19 


55 


2M: 


MOVEI 16 f 3M 




56 




PUSHJ 17, EXIT. 


ARGUMENT 


BLOCKS 


: 






57 




o,,o 




60 


3M: 


o,,o 




61 




777773, ,0 




62 


11M: 


0, ,777777 




63 




0,,0 




64 




0,,0 




65 




340, ,10P 




66 




0,,7 




67 




0,,0 




70 


12M: 


1100, ,SUM1 




71 




1100, ,SUM2 




72 




4000, ,0 


MAIN. 


TIM1. 


FOR 


FORTRAN V.5(515 



a 
en 

H 

o 

a 

KI/OPT/M 19-NOV-76 15:00 PAGE 1-2 o 

H 

FORMAT STATEMENTS (IN LOW SEGMENT): M 

18 116114 10P: (7H S 

116115 UM1= 

116116 ,19,1 

116117 OH 

116120 SUM2 

116121 = ,19 

116122 ) 

MAIN. [ NO ERRORS DETECTED ] 
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B.3 ERROR REPORT ING 

If an error occurs during the initial pass of the compiler (while the 
actual source code is being read and processed) , an error message is 
printed on the listing immediately following the line in which the 
error occurred. Each error references the internal sequence number of 
the incorrect line. The error messages along with the statement in 
error are output to the user terminal. For example: 



.EXECUTE DAY. FOR 

FORTRAN : DAY 

01300 

7FTNNRC LINE: 01300 

01500 100 

7FTNMSP LINE:01500 

01600 7 

7FTNICL LINE: 01600 



Kl 

STATEMENT NOT RECOGNIZED 

CONTINE 

STATEMENT NAME MISSPELLED 

ILLEGAL CHARACTER C IN LABEL FIELD 



7FTNFTL MAIN. 
LINK: LOADING 
[LNKNSA NO START ADDRESS] 



3 FATAL ERRORS AND NO WARNINGS 



EXIT 



If errors are detected after the initial pass of the compiler, they 
appear in the list file after the end of the source listing. They are 
output to your terminal without the statement in error, but they may 
reference its internal sequence number . 



B.3.1 Fatal Errors and Warning Messages 

There are two levels of messages, warning and fatal error. Warning 
messages are preceded by "%" and indicate a possible problem. The 
compilation will continue, and the object program will probably be 
correct. Fatal errors are preceded by a "?". If a fatal error is 
encountered in any pass of the compiler, the remaining passes will not 
be called. Additional errors that would be detected in later compiler 
passes may not become apparent until the first errors are corrected. 
It is not possible to generate a correct object program for a source 
program containing a fatal error. 

The format: of messages is 

7FTNXXX LINE:n text 



or 



%FTNXXX LINE:n text 



where : 



7 = fatal 

% = warning 

FTN = FORTRAN mnemonic 

XXX = 3-letter mnemonic for the error message 

LINE::n = line number where error occurred 

text = explanation of error 
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The printing of fatal errors and warning messages on your terminal can 
be suppressed by the use of the /NOERRORS switch; however, messages 
will still appear on the listing. The /NOWARNINGS switch will 
suppress warning messages on both user terminal and listing. 



B.3.2 Messag e Summary 

At the end of the listing file and on the terminal, a message summary 
is printed after each program unit is compiled. This message has two 
forms : 

1. when one or more messages were issued 

(7FTNFTL1 

(7FTNWRNJ name NO/number FATAL ERRORS AND NO/number WARNINGS 

or 

2. when no messages were issued 

name [NO ERRORS DETECTED] 

where name is the program or subprogram name. ([NO ERRORS DETECTED] 
appears on the listing only.) Appendix G is a complete list of fatal 
errors and warning messages. 



B.4 CREATING A REENTRANT FORTRAN PROGRAM WITH LINK-10 



To produce a sharable program from the .REL file, such as MAIN.REL, 
give either one of the following commands to LINK-10: 

1. /SEG:DEFAULT MAIN/G 

2. /OTS:NONSHAR MAIN/G 

The resulting core image can be SSAVEd or the /SSAVE switch can be 
used to produce a .SHR file. 
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APPENDIX C 
WRITING USER PROGRAMS 



This appendix is a guide for writing effective programs with 
FORTRAN-10. It contains techniques for optimization, interaction with 
non-FORTRAN programs, mixing of FORTRAN-10 and F40 object programs, 
and other useful programming hints. 



C.l GENERAL PROGRAMMING CONSIDERATIONS 

The following paragraphs describe programming considerations you 
should observe when preparing a FORTRAN program to be compiled by 
FORTRAN-10. 



C.l.l Accuracy and Range of Double-precision Numbers 

Floating-point and real numbers may consist of up to 16 digits in a 
double-precision mode. Their range is specified in Chapter 3, Section 
3.2 of this manual. You must be careful when testing the value of a 
number within the specified range since, although numbers up to 10**38 
may be represented, FORTRAN-10 can only test numbers of up to eight 
significant digits (REAL precision) and 16 significant digits (DOUBLE 
precision) . 

You must also be careful when testing the floating-point computation 

for a result of 0. In most cases the anticipated result, i.e., will 

be obtained; however, in some cases the result may be a very small 

number that approximates 0. Such an approximation of will cause 
tests within statements, i.e., an arithmetic IF, to fail. 



C.l. 2 Writing FO RTRAN-10 Programs for Execution On Non-DEC Machines 

If you prepare a program to run on both a DECsystem-10 computer and a 
non-DIGITAL machine, you should: 

1. Avoid using the non-ANSI standard features of FORTRAN-10, and 

2. Consider the accuracy and size of the numbers that the 
non-DIGITAL machine is capable of handling. 
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C . 1 . 3 Using Floating-Point DO Loops 

FORTRAN-10 permits you to employ non-integer single- or double- 
precision numbers as the parameter variables in a DO statement. This 
enables you to generate a wider range of values for the DO loop index 
variables, which may, in turn, be used inside the loop for 
computations. Be sure to consider the loss of precision that may 
occur . 



C.1.4 Computation of DO Loop Iterations 

The number of times through a DO loop is computed outside the loop and 
is not affected by any changes to the DO index parameters within the 
loop. The formula for the number of times a DO loop is executed is: 

DO 10 I=M1,M2,M3 

MAX (1, ( (M2-Ml)/M3)+l)=Number of cycles 

The values of the parameters Ml, M2, M3 may be of any type; however, 
you must consider the foregoing formula, particularly when using 
logicals. One pass through each DO loop is always performed EVEN IF 
THE RESULT OF THE FOREGOING CALCULATION IS LESS THAN OR EQUAL TO ZERO. 



C.1.5 Subroutines - Programming Considerations 

Consider the following items when preparing and executing subroutines: 

1. During execution, no check is made to see if the proper 
number of parameters was passed. 

2. If the number of actual arguments passed to a subroutine is 
less than the number of dummy arguments specified, the values 
of the unspecified arguments are undefined. 

3. If the number of actual arguments passed to a subroutine is 
greater than the number of dummy arguments given, the excess 
arguments are ignored. 

4. If an actual parameter is a constant and its corresponding 
dummy argument is set to another value, all references made 
to the constant in the calling program may be changed to the 
value of the dummy argument. 

5. No check is made to see if the parameters passed are of the 
same type as the dummy parameters. If an actual parameter is 
a constant and the corresponding dummy is of type real, be 
sure to include the decimal point with the constant. If the 
dummy is double-precision, be sure to specify the constant 
with a " D" . 

Examples 

If the function F(A) is called by inputting F(2) and A is 
type real, F interprets the integer 2 as an unnormalized 
floating-point number. In this instance, F(A) should be 
called with F(2. 0) . 

Similarly, if the function F1(D) is called by inputting 
Fl('2.5) and D is double-precision, Fl assumes that its 
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parameters have been specified with two words of precision 
and picks up whatever follows the constant 2.5 in core. The 
proper method is to use F1(2.5D00). 



NOTE 

You are given no notice if any of the situations 
described in items 1,2,3,4, and 5 occur. 



C.1.6 Reordering of Computations 

Computations that are not enclosed within parentheses may be reordered 
by the compiler. Sometimes it is necessary to use parentheses to 
ensure proper results from a specific computation. 

For example, assuming that 

1. RL1 represents a large number such that RL1*RL2 will cause an 
overflow condition, and 

2. RSI is a very small number, i.e., less than 1, the program 
sequence 



A=RS1*RL1*RL2 
B=RS2*RL2*RL1 



will not produce an overflow when evaluated left to right, 

since the first computation in each expression, i.e., RS1*RL1 

and RS2*RL2, will produce an interim result that is smaller 
than either large number (RL1 or RL2) . 

However, the compiler will recognize RL1*RL2 as a common subexpression 
(see Section C.2.1.1) and generate the following sequence: 

temp = RL1*RL2 
A = RSl*temp 
B = RS2*temp 

The computation of temp will cause an overflow. 

You should write the program as follows to ensure that the desired 
results are obtained: 



A=(RS1*RL1) *RL2 
B=(RS2*RL2) *RL1 

Computations may be reordered even when global optimization is not 
selected . 
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C.1.7 Dimension ing of Forma l Arrays 

When you specify an array as a formal parameter to a subprogram unit, 
you must indicate to the compiler that the parameter is an array. 
Dimension the array in a specification statement. This is the only 
way the compiler is able to distinguish a reference to such an array 
from a function reference. Designating the array with a dimension of 
1 is a common practice. 

Example 

SUBROUTINE SUB1(A,B) 
DIMENSION A(l) 

There are disadvantages to using the above technique because the 
dimension information provided is not adequate in some cases, 
specifically: 

1. Reading or writing the array by name 

DIMENSION ARRAY (10) 
READ (1) ARRAY 

The above is a binary read that will read ten words into 
ARRAY. 

SUBROUTINE SUB1 (A) 
DIMENSION A(l) 
READ (1) A 

This binary read will cause one word to be read into A. 

2. Reading the array as a format 

SUBROUTINE SUB2 (FMT) 
DIMENSION FMT(l) 
READ (1,FMT) 

This will cause one word of the array FMT to be written over 
with the characters read from the record on unit 1. 

When you use the /DEBUG: BOUNDS compilation switch, the dimension 
information used is that which is specified in the array declaration. 

SUBROUTINE DO IT (A) 
DIMENSION A(l) 
A(2)=0 

The reference to A(2) will cause the out-of-bounds warning message to 
be generated. 



C.2 FORTRAN-10 GLOBAL OPTIMIZATION 

You have the option of invoking the global optimizer during 
compilation. The optimizer treats groups of statements in the source 
program as a single entity. The purpose of the global optimizer is to 
prepare a more efficient object program that produces the same results 
as the original unoptimized program, but takes significantly less 
execution time. The output of the lexical and syntactic analysis 
phase of the compiler is developed into an optimized source program 
equivalent (in results) to the original. The optimized program is 
then processed by the standard compiler code generation phase. 

C-4 



WRITING USER PROGRAMS 

C.2.1 Optimization Techniques 

C.2.1.1 Elimination of Redundant C omputations - Often the same 
subexpression will appear in more than one computation throughout a 
program. If the values of the operands of such a common expression 
are not changed between computations, the subexpression may be written 
as a separate arithmetic expression, and the variable representing its 
resultant may then be substituted where the subexpression appears. 
This eliminates unnecessary recomputat ion of the subexpression. For 
example, the instruction sequence: 

A=B*C+E*F 



H=A+G-B*C 



IF((B*C)-H) 10,20,30 

contains the subexpression B*C three times when it really needs to be 
computed only once. Rewriting the foregoing sequence as: 

T=B*C 
A=T+E*F 



H=A+G-T 

DIF((T)-H) 10,20,30 

eliminates two computations of the subexpression B*C from the overall 
sequence . 

Decreasing the number of arithmetic operations performed in a source 
program by the elimination of common subexpressions shortens the 
execution time of the resulting object program. 



C.2.1. 2 Reduction of Operator Stre ngth - The time required to execute 
arithmetic operations will vary according to the operator (s) involved. 
The hierarchy of arithmetic operations according to the amount of 
execution time required is: 

MOST TIME OPERATOR 
** 



LEAST TIME 



During program optimization, the global optimizer replaces, where 
possible (1), some arithmetic operations that require the most time 
with operations that require less time. For example, consider the 
following DO loop that is used to create a table for the conversion of 
from 1 to 20 miles to their equivalents in feet. 

DO 10 MILES=1,20 
10 IFEET(MILES) =5280*MILES 



1. Numerical analysis considerations severely limit the number of 
cases where this is possible. 
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The execution time of the foregoing loop would be shorter if the 
time-consuming multiply operation, i.e., 5280*MILES, could be replaced 
by a faster operation. Since you increment MILES on each pass, you 
can replace the multiply operation by an add and total operation. 

In its optimized form, the foregoing loop would be replaced by a 
sequence equivalent to: 

K=5280 

DO 10 MILES=1,20 
IFEET(MILES) =K 
10 K=K+5280 

In the optimized form of the loop, the value of K is set to 5280 for 
the first iteration of the loop and is increased by 5280 for each 
succeeding iteration of the loop. 

This foregoing situation occurs frequently in subscript calculations 
that implicitly contain multiplications whenever the size is two or 
greater . 



C.2.1.3 Removal of Constant Computa tion Fro m L oops - The speed with 
which a given algorithm may be executed can be increased if 
instructions and/or computations are moved out of frequently traversed 
program sequences into less frequently traversed program sequences. 
Movement of code is possible only if none of the arguments in the 
items to be moved are redefined within the code sequences from which 
they are to be taken. Computations within a loop consisting of 
variables or constants that are not changed in value within the loop 
may be moved outside the loop. Decreasing the number of computations 
made within a loop greatly decreases the execution time required by 
the loop. 

For example, in the sequence: 

DO 10 1=1,100 
10 F=2.0*Q*A(I) +F 

the value of the computation 2.0*Q, once calculated on the first 
iterations, will remain unchanged during the remaining 99 iterations 
of the loop. Reforming the foregoing sequence to: 

QO=2.0*Q 
DO 10 1=1,100 
10 F=QQ*A(I)+F 

moves the calculation 2.0*Q outside the scope of the loop. This 
movement of code eliminates 99 multiply operations. 

In addition, it is possible to remove entire assignment statements 
from loops. This action can be easily detected from the macro 
expanded listings. The internal sequence number remains with the 
statement and appears out of order in the leftmost column of the macro 
expanded listing (LINE). 
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C.2.1.4 C onstant Folding and Propagation - In this method of 
optimization, expressions containing determinate constant values are 
detected and the constants are replaced, at compile time, by their 
defined or calculated value. For example, assume that the constant PI 
is defined and used in the following manner: 



PI = 3 



X=2*PI*Y 



14159 



At compile time, the optimizer will have used the defined value of PI 
to calculate the value of the subexpression 2*PI. The optimized 
sequence would then be : 



PI = 3 



14159 



X=6.28318*Y 



thereby eliminating a multiply operation from the object code program. 

The computation of determinate constant values at compile time is 
termed "folding"; the use of the defined value of a constant for 
replacement purposes throughout a program sequence is termed 
"propagation of the constants." The execution time saved by the 
foregoing type of compile time optimization is particularly important 
when the modified instruction occurs in a loop. 



C.2.1.5 R emoval of Inaccessible Cod e - The optimizer detects and 
eliminates any code within the source program that cannot be accessed. 
In general, this will not happen since programmers do not normally 
include such code in their programs; however, inaccessible code may 
appear in a program during the debugging process. The removal of 
inaccessible code by the optimizer will reduce the size of the object 
program. A warning message is generated for each inaccessible line 
removed . 
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C.2.1.7 I/O Optimization - Every effort is made to minimize the 
number of required calls to the FOROTS system. This is done primarily 
through extensive analysis of implied DO loop constructs on READ, 
WRITE, ENCODE, DECODE, and REREAD statements. The formats of these 
special blocks are described in Appendix E. These optimizations 
reduce dthe size of the program (argument code plus argument block 
size is reduced) and greately improve the performance of programs that 
use implied DO loop I/O statements. 



C.2.1.8 Uninitialized Variable Detection - A warning message is 
generated when a scalar variable is referenced before it has received 
a value. 



C.2.1.9 Test Replacement - If the only use of a DO loop index is to 
reduce operator strength (D.2.1.2) and the loop does not contain exits 
(GO TOs out of the loop) , the DO loop index is not needed and can be 
replaced by the reduced variable. 

For example: 

DO 10 1=1,10 
K=K+7*I 
10 CONTINUE 

Reduction of operator strength and test replacement together transform 
this loop into 

DO 10 1=7,70,7 
K = K+I 
10 CONTINUE 

This occurs frequently in subscript computation. 



C.2.2 Impr oper Function References 
Consider this statement: 

P = F(X) + Q(Y) 
If: 

1. the evaluation of F(X) defines or changes the variables A, B, 
and C, and 

2. the evaluation of Q(Y) defines or changes the values of B, C, 
and D, 

then it is possible that different values of P could result, depending 
on which function is evaluated first. Let's see how this works. 
Let's assign some values (to begin with) to A, B, C, and D and define 
the functions F(X) and Q(Y): 



Let: 



F(X): Q(Y): 

A = 2. A = 6. B = 10. 

B = 3. B = 7. C = 11. 

C = 4. C = 8. D = 12. 

D = 5. F=D+9. Q=A+ 13. 
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Now play computer and evaluate P, calling first F(X), then Q(Y). Now 
re-evaluate P, calling Q(Y) first, then F(X). Notice that you got 
different values for P because the variables A, B, C, and D changed 
value depending on the order in which the functions were called. (Our 
answers were 33 when F(X) was called first and 36 when Q(Y) was called 
first. ) 

The ANSI FORTRAN standard prohibits this kind of situation. But the 
compiler won't catch it unless you mention the affected variables in 
the function call itself. The compiler depends on strict adherence to 
this rule. There's a strong possibility that you won't get the 
results you want if you don't look for situations of this type and 
avoid them. Your best bet is to define your variables OUTSIDE the 
function and not change them in the course of the evaluation of the 
function itself. 



C.2.3 Programming Techniques for Effective Optimization 

Observe the following recommendations during the coding of a FORTRAN 
source program. They will improve the effectiveness of the optimizer. 

1. Do not use DO loops with an extended range. 

2. Specify label lists when using assigned GO TOs . 

3. Nest loops so that the innermost index is the one with the 
largest range of values. 

4. Avoid the use of associated input/output variables. 

5. Avoid unnecessary use of COMMON and EQUIVALENCE. 



C . 3 INTERACTING WITH NON-FORTRA N-10 PROG RAMS AN D FILES 

C.3.1 Calling Sequences 

The following paragraphs describe the standard procedures for writing 
DECsystem-10 subroutine calls. 

1. Procedure 

a. The calling program must load the right half of 
accumulator (AC) 16 with the address of the first 
argument in the argument list. 

b. The left half of AC 16 must be set to zero. 

c. The subroutine is then called by a PUSHJ instruction to 
AC 17. 

d. The return will be made to the instruction immediately 
after the PUSHJ 17 instruction. 

e. If you use the /DEBUG: BOUNDS option of the FOROTS trace 
facility, the calling sequence must be 

MOVE I 16,AP 
PUSHJ 17, F 
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where AP is the pointer to the argument list. If you use 
the trace facility, the word preceding the first word of 
an entry point should have its name in SIXBIT. 

Re strict ions 

a. Skip returns are not permitted. 

b. The contents of the pushdown stack located before the 
address specified by AC 17 belong to the calling program; 
they cannot be read by the called subprogram. 

c. FOROTS assumes that it has control of the stack; 
therefore, you must not create your own stack. The 
FOROTS stack is initialized by: 

JSP 16, RESET. 

or the library routine 

CALL RESET. 



C.3.2 Accumulator Usage 

The specific functions performed by accumulators (AC) 17,16,0, and 1 
are as follows: 

1. Pushdown Pointer - AC 17 is always maintained as a pushdown 
pointer. Its right half points to the last location in use 
on the stack, and its left half contains the negative of the 
number of (words-1) allocated to the unused remainder of the 
stack. (A trap occurs when something is pushed into the next 
to last location. The trap instruction may itself be a PUSHJ 
on the KI10 processor, which uses the last location.) A 
positive left half is not permitted. 

2. Argument List Pointer - AC 16 is used as the argument 
pointer. The called subprogram does not need to preserve its 
contents. The calling program cannot depend on getting back 
the address of the argument list passed to the callee. AC 16 
cannot point to the ACs or to the stack. 

3. Temporary and Value Return Registers - AC and 1 are used as 
temporary registers and for returning values. The called 
subprogram does not need to preserve the contents of AC or 
1 (even if not returning a value) . The calling program must 
never depend on getting back the original contents of the 
data passed to the called subprogram. 

4. Returning Values - At the option of the designer of a called 
subprogram, a subroutine may pass back results by modifying 
the arguments, returning a single-precision value in AC or 
a double-precision or complex value in AC and 1. A 
combination of the above may be used. However, two 
single-precision values cannot be returned in AC and 1, 
since FORTRAN would not be able to handle it. 
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5. Preserved ACs - FORTRAN-10 FUNCTION subprograms preserve ACs 
2 through 15; subroutine subprograms do not. 

The design of the called subprogram cannot depend on the 
contents of any of the ACs being set up by the calling 
subprogram, except for ACs 16 and 17. Passing information 
must be done explicitly by the argument list mechanism. 
Otherwise, the called subprograms cannot be written in either 
FORTRAN-10 or COBOL. 



C.3.3 Argument Lists 

The format of the argument list is as follows: 

Arg count word 

Arg list addr. First arg entry 

Second arg entry 



Last arg entry 

The format of the arg count word is: 

bits 0-17 These contain -n , where n is the number of arg 

entries . 
bits 18-35 These are reserved and must be 0. 

The format of an arg entry is as follows (each entry is a single 
word } : 

bits 0-8 Reserved for future DEC development (set to for 

now) . 
bits 9-12 Arg type code, 
bit 13 Indirect bit if desired, 
bits 14-17 Index field, must be for present, 
bits 18-35 Address of the argument. 

The following restrictions should be observed: 

1. Neither the argument list nor the arguments themselves can be 
on the stack. This restriction is imposed so that the stack 
can be moved. The same restriction applies to any indirect 
argument pointers. 

2. The called program may not modify the argument list itself. 
The argument list may be in a wr ite-protected segment. 

Note that the arg count word is at position -1 with respect 
to the contents of AC 16. This word is always required even 
if the subroutine does not handle a variable number of 
arguments. A subroutine that has no arguments must still 
provide an argument list consisting of two words, i.e., the 
argument count word with a in it and a zero argument word. 
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Example 



MOVEI 16, AP 
PUSHJ 17, SUB 



SET UP ARG POINTER 
CALL SUBROUTINE 
RETURN HERE 



;ARGUMENT LIST 
-3,,0 
AP: A 
B 
C 

; SUBROUTINE TO SET THIRD ARG TO SUM OF FIRST TWO ARGS 



SUB 



MOVE 


T,@0(16) 


GET FIRST ARG 


ADD 


T, (31(16) 


■ADD SECOND ARG 


MOVEM 


T, (32(16) 


SET THIRD ARG 


POPJ 


17, 


■RETURN TO CALLER 



C.3.4 Argument Types 



Table C-l 
Argument Types and Type Codes 



Type Code 


Descr iption 


FORTRAN Use 


COBOL Use 





Unspecified 


Unspecified 


1 


FORTRAN Logical 


Not applicable 


2 


Integer 


1-word COMP 


3 


Reserved 


Reserved 


4 


Real 


COMP-1 


5 


Reserved 


Reserved 


6 


Octal 


Reserved 


7 


Label 


Procedure address 


10 


Double real 


Not applicable 


11 


Not applicable 


2-word COMP 


12 


Double Octal 


Reserved 


13 


Reserved 


Reserved 


14 


Complex 


Not applicable 


15 


Not applicable 


Byte string descriptor 


16 


Reserved 


Reserved 


17 


ASCIZ string 


Not applicable 



Literal arguments are permitted, but they must reside in a writable 
segment. This is because the FORTRAN-10 compiler makes a local of all 
non-array elements and copies all formals back to the caller's 
arguments. All unused type codes are reserved for future DIGITAL 
development . 
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C.3.5 Descr iption of Arguments 

The types of the arguments that may be passed are: 

1. Type - Unspecified 

The calling program has not specified the type. The called 
subprogram's should assume that the argument is of the correct 
type if it is checking types. If several types are possible, 
the called subprogram should assume a default as part of its 
specification. If none of the above conditions is true, the 
called subprogram should handle the argument as an integer 
(type 2) . 

2. Type 1 - FORTRAN logical 

A 36-bit binary value containing or positive to specify 
.FALSE. and negative to specify .TRUE.. 

3. Type 2 - Integer and 1-word-COMP 

A 36-bit 2's complement signed binary integer. 

4. Type 4 - Real and COMP-1 

A 36-bit DECsystem-10 format floating-point number. 

bit sign 

bits 1-8 excess 128 exponent 

bits 9-35 mantissa 

5. Type 6 - Octal 

A 36-bit unsigned binary value. 

6. Type 7 - Label and procedure address 

A 23-bit memory address. 

bits 0-12 always 

bit 13 indirect flag 

bits 14-17 

bits 18-35 the address 

7. Type 10 - Double real 

A double-precision floating-point number for the CPU on which 
code is being executed, i.e., KA format on a KA10 processor 
and KI format on a KI10 processor. 

8. Type 11 - 2-word COMP 

A 2-word (72-bit) 2's complement signed binary integer. 

word 1, bit sign 

word 1, bits 1-35 high order 

word 2, bit same as word 1, bit 

word 2, bits 1-35 low order 

9. Type 12 - Double octal 

A 72-bit unsigned binary value. 
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10. Type 14 - Complex 

A complex number represented as an ordered pair of 36-bit 
floating-point numbers. The first represents the real part, 
and the second represents the imaginary part. 

11. Type 15 - Byte String Descriptor 

The format of the byte string descriptor is: 

word 1: ILDB-type pointer, i.e., aimed at the byte 

preceding the first byte of the string 
word 2: EXP byte count 

The byte descriptor may not be modified by the called 
program. The byte string itself must consist of a string of 
contiguous bytes of uniform size. The byte size may be any 
number of bits from 1 to 36. The byte count must be large 
enough to encompass 256K words of storage, i.e., 24 bits for 
1-bit bytes. (See COBOL Program Reference Manual .) 

12. Type 17 - ASCIZ string 

A string of contiguous 7-bit ASCII bytes left justified on 
the word boundary of the first word and terminated by a null 
byte in the last word. The length of the string may be from 
1 to 256K words. 



C.3.6 Converting Existing MACRO-10 Libraries for use with FORTRAN-10 

The following simple example illustrates the FORTRAN-10 calling 
sequence . 
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EX1.F0R FORTRAN V. 5(515) /KI/M 4-NOV-76 



12:19 



PAGE 1 



AN EXAMPLE OF A CALL TO A SUBROUTINE "WITH A VARIETY OF ARGUMENTS 
DOUBLE PRECISION DP 

nTMCMCTA'M D/TO\ 

THE ARGUMENTS ARE: 

1. A REAL VARIABLE 

2. AN ARRAY NAME 

3. AN ARRAY ELEMENT 

4. AN INTEGER VARIABLE 

5. A DOUBLE PRECISION VARIABLE 

6. AN OCTAL CONSTANT 

7. A LITERAL 

CALL SUB1 (A, B, B(I), K, DP, "777, 'ABC') 

END 



SUBPROGRAMS CALLED 
SUB1 

SCALARS AND ARRAYS [ "*" NO EXPLICIT DEFINITION - "%" NOT REFERENCED ] 

DP 1 *K 3 B 4 *A 16 *I 17 



00001 


C 


00002 




00003 




00004 




66665 




00006 


C 


00007 


C 


00008 


c 


00009 


c 


00010 


c 


00011 


c 


00012 


c 


00013 


c 


00014 




00015 




00016 




00017 





C 

en 
ra 

o 

o 

> 
s 



TEMPORARIES 
•Q0000 20 



JFCL 


0,0 


JSP 


16, RESET 




0,0 


MOVE 


2,1 


MOVE I 


2,B-1(2) 


MOVEM 


2, .Q0000 


MOVEI 


16, 2M 


PUSHJ 


17,SUB1 


MOVEI 


16, 1M 


PUSHJ 


17, EXIT. 



LINE LOC LABEL GENERATED CODE 



1 

2 
15 3 

4 

5 

6 

7 
17 10 

11 

ARGUMENT BLOCKS: 

12 0,,0 

13 1M: 0,,0 

14 777771, ,0 

15 2M: 200,, A 

MAIN. EX1.FOR FORTRAN V.5(512) /KI/M 4-NOV-76 12:19 PAGE 1-1 

16 200, ,B 



21 400,, DP 

22 300,, [000000000777] 

23 740, , [406050320100] 
MAIN. [ NO ERRORS DETECTED ] 

MAIN. EX1.FOR FORTRAN V.5(512) /KI/M 4-NOV-76 12:19 PAGE 1 

00001 

00002 SUBROUTINE SUB1 (REALl, ARYNAM , ARYELM, INT1, DBLPRC, OCT, LIT) 

00003 DOUBLE PRECISION DBLPRC 



o 

c 
en 

m 

X) 
O 
O 



17 220,,.Q0000 g 

20 100, ,K 3 



a> 



o 
I 



00004 
00005 
00006 
00007 
00008 
00009 
1 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 



DIMENSION ARYNAM (10) 

AN EXAMPLE OF THE USE AND MODIFICATION OF FORMAL PARAMETERS 

XI = REAL1 

X2 = ARYNAM (J) 

X3 = ARYELM 

11 = INT1 
X4 = DBLPRC 

12 = OCT 

13 = LIT 

REAL1 = XI 

ARYNAM (J) = X2 

ARYELM = X3 

INT1 = II 

DBLPRC = CMPLX (X4, 0.0) 

OCT = "55 

LIT = ' ZYXW 

RETURN 
END 



SUBPROGRAMS CALLED 
COMPLX. 



z 
a 

a 
en 

ra 
50 

50 

o 
o 

50 

> 

en 



SCALARS AND ARRAYS [ " * " NO EXPLICIT DEFINITION - " % " NOT REFERENCED ] 

*ARYELM 4 *X3 5 

*J 12 *X2 13 

*I1 17 ARYNAM 20 



*LIT 1 


*OCT 


2 


*X4 


3 


DBLPRC 6 


*I3 


10 


*REAL1 


11 


*INT1 14 


*I2 


15 


*X1 


16 


TEMPORARIES 










.A0016 21 











LINE 



SUB1 



10 
11 
12 

13 

14 



LOC 



SUB1 



1 

2 

3 

4 

5 



LABEL 



GENERATED CODE 
636542, ,210000 



6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 



3M: 



MOVEM 


16, .A0016 


MOVE 


0,(30, (16) 


MOVEM 


0,REAL1 


MOVE I 


1,(31(16) 


MOVEM 


1,ARYNAM 


MOVE 


1,@2(16) 


V.5(512) /KI/M 4-NOV-76 


MOVEM 


1,ARYELM 


MOVE 


2,@3(16) 


MOVEM 


2,INT1 


DMOVE 


4,@4(16) 


DMOVEM 


4,DBLPRC 


MOVE 


3,(35(16) 


MOVEM 


3, OCT 


MOVE 


6,(36(16) 


MOVEM 


6, LIT 


MOVEM 


0,X1 


MOVE 


7, J 


ADD 


7,ARYNAM 


MOVE 


7,777777(7) 


MOVEM 


7,X2 


MOVEM 


1,X3 


MOVEM 


2,11 


PUSHJ 


17,SNG.4 


MOVEM 


4,X4 


FIX 


3,3 


MOVEM 


3,12 


MOVEM 


6,13 


MOVEM 


0,REAL1 



12:19 



PAGE 1-1 



z 
o 

c 
en 

>v 

o 

o 

IXI 

> 
cn 



o 
I 



17 34 
35 
36 

18 37 

19 40 

20 41 
42 
43 

21 44 
45 

22 46 
47 

25 50 

51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 

ARGUMENT BLOCKS 



2M: 



MOVE 


3, J 


ADD 


3,ARYNAM 


MOVEM 


1 ,111111 (3) 


MOVEM 


1,ARYELM 


MOVEM 


2,INT1 


MOVE I 


5,0 


MOVEI 


5,0 


DMOVEM 


4,DBLPRC 


MOVEI 


2,55 


MOVEM 


2, OCT 


MOVE 


2, [552633053500] 


MOVEM 


2, LIT 


MOVE 


16, .A0016 


MOVE 


0,REAL1 


MOVEM 


0,(30(16) 


MOVE 


0,ARYELM 


MOVEM 


0,(32(16) 


MOVE 


0,INT1 


MOVEM 


0,(33(16) 


DMOVE 


0,DBLPRC 


DMOVEM 


0,(34(16) 


MOVE 


0,OCT 


MOVEM 


0,(§5(16) 


MOVE 


0,LIT 


MOVEM 


0,(36(16) 


POPJ 


17,0 



o 

c 
to 



W 

o 
en 

so 
> 



SUB1 



66 0,,0 

67 1M: 0,,0 

[ NO ERRORS DETECTED ] 
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To convert existing MACRO-10 programs conveniently so that they will 
still load and execute correctly when called from F40 or FORTRAN-10: 

1. Transfer the initial entry sequence for a routine to 

entry: CAIA 

PUSH 17,CEXIT.## 

2. Change all returns to POPJ 17,0 

These are the functions performed by the HELLO and GOODBY macros. 
These macros (available in the file FORPRM.MAC, part of the FOROTS 
release) were successfully used to convert the library routines to run 
with both F40 and FORTRAN-10. 

In addition, since the FORTRAN-10 compiler uses the indirect bits on 
argument lists (note that this permits shared, pure code argument 
lists) , it is essential for code that accesses parameters to take this 
into account. Specifically, sequences that obtained the values of 
parameters through use of operations such as 

HRRZ R,l(16) 

to pick up the address of the second argument should be changed to 

MOVEI R,@l(16) 

The latter operation will work when interfacing with either F40 or 
FORTRAN-10. 

Refer to the previous example, which illustrates the code generated by 
the FORTRAN-10 compiler, for specific details of how each argument is 
accessed. Note that in the case of the formal array, it is the 
address of the array that is accessed. 



C . 3 . 7 Mixing FORTRAN-10 and F40 Compiled Programs 

Starting with Version 1A of LINK-10, use of the switch /MIXFOR will 
permit loading FORTRAN-10 and F40 programs. This is achieved by 
modifying the code while it is loaded. 

This introduces extra code that results in a degradation of the 

execution of programs so loaded. This feature is provided as a 

convenience for conversion. It is not intended to be used for other 
than conversion assistance. 



C . 3 . 8 Interaction with COBOL-10 

The FORTRAN-10 programmer may call COBOL-10 programs as subprograms, 
and, conversely, the COBOL programmers may call FORTRAN-10 programs as 
subprograms . 

In either of the foregoing cases, I/O operation must not be performed 
in the called subprogram. 
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C . 3 . 8 . 1 Calling FORTRAN-10 Subprograms from COBOL-10 Programs - COBOL 
programmers may write subprograms in FORTRAN-10 to use the 
conveniences and facilities provided by this language. The COBOL verb 
ENTER is used to call FORTRAN-10 subroutines. The form of ENTER is as 
follows : 



ENTER FORTRAN program name 



identifier 1 
USING Uiterall 

procedure namel 



identifier 2 
literal 2 
procedure2 



The USING clause of the foregoing forms names the data within the 
COBOL program that is to be passed to the called FORTRAN-10 
subprogram. The passed data must be in a form acceptable to 
FORTRAN-10. 

The calling sequence used by COBOL in calling a FORTRAN-10 subprogram 
is : 

MOVEI 16, address of first entry in argument list 
PUSHJ 17, subprogram address 

If the USING clause appears in the ENTER statement, the compiler 
creates an argument list that contains an entry for each identifier or 
literal in the order of appearance in the USING clause. It is 
preceded by a word containing, in its left half, the negative number 
of the number of entries in the list. If no USING clause is present, 
the argument list contains an empty word, and the preceding word is 
set to 0. Each entry in the list is one 36-bit word at the form: 



0-8 


9-12 


13-35 





type 


address 



Bits 0-8 are always 0. 

Bits 9-12 contain a type code that indicates the USAGE of the 
argument . 

Bits 13-35 contain the address of the argument of the first 
word of the argument; the address can be indexed or indirect. 

Following is a description of the types, their codes, how the codes 
appear in the argument list, and the locations specified by the 
addresses . 

1. For 1-word COMPUTATIONAL items 



CODE: 

IN ARGUMENT LIST: 

ADDRESS: 



XWD 100, address 

that of the argument itself 



2. For 2-word COMPUTATIONAL items 



CODE: 

IN ARGUMENT LIST: 

ADDRESS: 



11 

XWD 440, address 

that of the high-order word of the 

argument 



3. For COMPUTATIONAL-1 items 



CODE: 

IN ARGUMENT LIST 

ADDRESS: 



XWD 200, address 

that of the argument itself 
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For DISPLAY-6 and DISPLAY-7 items 



CODE: 

IN ARGUMENT LIST 

ADDRESS: 

WORD1: 

WORD2: 



15 

XWD 640, address 

that of a 2-word descriptor for the 

argument 
a byte pointer to the identifier or 

literal 
bit is 1 if the item is numeric 
bit 1 is 1 if the item is signed 
bit 2 is 1 if the item is a figurative 

constant (including ALL) 
bit 3 is 1 if the item is a literal 
bits 4 through 11 are reserved for 

expansion 
bit 12 is 1 if the item has a PICTURE 

with one or more Ps just before the 

decimal point, e.g., 99PPV. 
bits 13 through 17 are the number of 

decimal places. If bit 12 is 1, this 

is the number of Ps . 
bits 18 through 35 contain the size of 
the item in bytes. 



For procedure names (which cannot be used for calls to COBOL 
subprograms) 



CODE: 

IN ARGUMENT LIST: 

ADDRESS: 



XWD 340, address 
that of the procedure 



The return from a subprogram (via POPJ 17,) is to the statement after 
the call . 



C . 3 . 8 . 2 Calling COBOL-10 Subroutines from FORTRAN-10 Programs - To 
call COBOL subroutines use the standard subroutine calling mechanism: 



CALL COBOLS (args. . . ) 
X=COBOLS (args...) 



subroutine call 
function call 



You must have compiled the COBOL subroutine using the COBOL compiler 
described in the DECsystem-10 COBOL Programmer's Reference Manual. 



C . 3 . 9 LINK-10 Overlay Facilities 

LINK-10 provides several routines that are accessible directly from a 
FORTRAN-10 program. These routines are presented here briefly, 
together with the FORTRAN-10 specification of their parameters. In 
general, LINK-10 performs these functions automatically. These 
routines are available only for your convenience. Full details of the 
use of the overlay facilities can be found in the LINK-10 Reference 
Manual . 
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C.3.9.1 Conventions - The following terms are used to describe the 
parameters to LINK-10 overlay routines. 

File spec A literal constant consisting of device: 

filename. ext [directory] 
Name A LINK name or number that is a literal 

constant or variable. 
List of link names A sequence of name items separated by 

commas . 

The routines available are: 

INIOVL (File spec) Used to specify the overlay 

file to be found if the load time 
specification is to be overridden. 

GETOVL (List of link names) Used to change the 

overlay structure in core. 

RUNOVL (Name) Loads the specified LINK and 

transfers to that LINK. 

REMOVL (List of link names) Removes the specified 

LINKs from core. 

LOGOVL (File spec) Used to specify where the log 

file is to be written. If no arguments are 
given, the log file is closed. 

For a full description of these routines, refer to the LINK-10 
Reference Manual. 



C . 3 . 1 F OROTS/FORSE Comp atibil ity 

The information presented in Sections C. 3. 10.1 and C.3.10.2 is 
intended only for those users who have programs and data files that 
were developed using the F40 FORTRAN compiler and the FORSE object 
time system. The following sections describe the manner in which both 
upward and downward compatibility between the FORTRAN-10, FOROTS and 
F40, FORSE FORTRAN systems may be achieved. 



C. 3.10.1 FORTRAN-10/F40 Data File C ompatibi lity - Table C-2 describes 
upward compatibility of" data files (FORSE TO FOROTS) . Table C-3 
describes downward compatibility of data files (FOROTS TO FORSE) . 
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Table C-2 
Upward Compatibility {FORSE TO FOROTS) 







May Be 






FORSE 


read By 


In The Following 




File Type 


FOROTS 


Manner : 


1. 


Sequential ASCII 


Yes 


May be read directly; 
record positioning 
operations , e.g., 
BACKSPACE, SKIP RECORD, 
may be used. 


2. 


Sequential Binary 


Yes 


May be read directly in 
a forward fashion only; 
record positioning 
operations are not 
permitted . 


3. 


Sequential Mixed files 


Yes 


May be read directly in 
a forward fashion only; 
record positioning 
operations not 
permitted . 


4. 


Random Access ASCII Files 


No | 


NOTE: We suggest that 
a random access file 


5. 


Random Access Binary Files 


No ) 


be read (using FORSE) 
and be rewritten as a 
sequential file that 
can be accepted by 
FOROTS. 
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C . 3 . 1 . 2 Converting FOROTS Data Files to FORSE-Acceptable Form - The 
following paragraphs describe procedures that may be used to convert 
FOROTS sequential mixed, random access ASCII, and random access binary 
data files into a form that can be read by FORSE. 

Conversion of FOROTS Sequential Mixed Files - We suggest the following 
procedure to convert a FOROTS sequential mixed file into either a 
sequential ASCII or sequential binary file acceptable to FORSE. 

1. Prepare and run a FORTRAN-10 I/O program that will produce 
either a sequential ASCII or a sequenial binary output file. 

2. If a sequential ASCII file is produced, it must be 
line-blocked before it can be read by FORSE. Line-blocking 
is accomplished by copying the file using either the system 
COPY command (with an A switch) or PIP. The copy will be 
line blocked and will be acceptable to FORSE. The following 
is an example of the command sequence needed to line-block 
the data file FOROT.DAT: 

.COPY FOROT.DAT=FOROT. DATA/A 

3. If a sequential. binary file is produced, it must be 
record-blocked before it can be read by FORSE. 
Record-blocking is accomplished using the /K feature of the 
program BAKWDS . The following is an example of the command 
sequence needed to record-block the data file FOROT.DAT: 

.R BAKWDS 

*FOROT . DAT=FOROT . DAT/K 
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Table C-3 
Downward Compatibility (FOROTS TO FORSE) 







May Be 






FOROTS 


Read By 


In The Following 




File Type 


FORSE 


Manner : 


1. 


Sequential ASCII File 


Yes 


This operation is 
permitted if the file is 
line-blocked. This may 
be accomplished by making 
a copy of the file using 
either the system copy 
command (with an A 
switch) or the PIP 
program. The resulting 
copy will be 
line-blocked . 

An example of the command 
sequence needed to line 
block a FOROTS file, 
using PIP, follows: 

.R PIP 

* FOROTS . DAT=FOROTS . DAT/A 


2. 


Sequential Binary File 


Yes 


This operation is 
permitted if the file is 
record-blocked. This 
type of blocking is 
accomplished by using the 
/K option of the program 
BAKWDS. The following is 
an example of a command 
sequence which 
record-blocks a file. 

.R BAKWDS 

* FORSE . DAT=FOROTS . DAT/K 


3. 


Sequential Mixed File 


No 


(See Section C.3.10..2 for 
suggested conversion 
procedure . ) 


4. 


Random Access ASCII File 


No 


(See Section C. 3. 10.2 for 
suggested conversion 
procedure . ) 


5. 


Random Access Binary File 


No 


(See Section C. 3. 10.2 for 
suggested conversion 
procedure . ) 
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Conversion of FOROTS Random Access ASCII Files - We suggest the 
following procedure to convert a FOROTS random access ASCII file into 
a form acceptable to FORSE. 

1. Prepare and run a FORTRAN-10 I/O program that will create a 
sequential ASCII file consisting of the records of the random 
access file. 

2. Line-block the sequential ASCII file using either the system 
COPY command (with an A switch) or the PIP program. The 
following is an example of the COPY command: 

.COPY LNBLK.DAT=SEQFL. DAT/A 

The foregoing command would produce a line-blocked copy 
(LNBLK.DAT) of the sequential file SEQFL.DAT. 

3. Prepare and run an F40 I/O program that will read the file 
produced in step 2 and will rewrite the file as a FORSE 
generated random access file. 

Conversion of FOROTS Random Access Binary Files - We suggest the 
following procedure to convert a FOROTS random access binary file into 
a form acceptable to FORSE. 

1. Prepare and run a FORTRAN-10 I/O program that will create a 
sequential binary file consisting of the records of the 
random access file. 

2. Record-block the sequential file. This is accomplished by 
using the /K feature of the program BAKWDS . The following 
example illustrates the command sequence required to convert 
the file FOROTS.DAT into the record-blocked file FORBLK.DAT. 

.R BAKWDS 

*FORBLK . DAT=FOROTS . DAT/K 

3. An F40 I/O program may then be written to convert the 
sequential record-blocked file into a FORSE generated random 
access file. 



C.3.10.3 General Restrictions - Observe the following restriction 
during the preparation of FORTRAN-10 programs and data files: 

CHAIN functions (as implemented for the F40 compiler) are not 
implemented in FORTRAN-10. An overlay capability that is greatly 
superior to CHAIN is available with LINK-10 version 2. 
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This appendix describes the facilities that FOROTS provides for the 
FORTRAN user. FOROTS implements all standard FORTRAN I/O operations 
as set forth in the "American National Standard FORTRAN, ANSI 
X3. 9-1966.," In addition it provides the user with capabilities and 
programming features beyond those defined in the ANSI standard. 

The primary function of FOROTS ijs to act as a direct interface between 
user object programs and the DECsystem-10 monitor during input and 
output operations. Other capabilities include: 

1. Job initialization 

2. Channel and core management 

3. Error handling and reporting 

4. File management 

5. Formatting of data 

6. Mathematical library 

7. User library (non-mathematical) 

8. Specialized applications packages 

9. Overlay facilities 
10. P40 compatibility 



D.l HARDWARE AN D SOFTWARE REQUIREMENTS 

You can run FOROTS on a DECsystem-10 KA10, KI10, or KL10 processor. 
FOROTS may interface with all DECsystem-10 peripheral devices. In 
addition to monitor or user program requirements, a minimum of 14 
pages of user core is needed to run FOROTS. 
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The software required with FOROTS is the 5.06 monitor or a later 
version. Other software items that can be associated with FOROTS 
include : 

1. The MACRO-10 assembler (version 47 or later) 

2. The LINK-10 loader (version 1A or later) 

3. The system program COMPIL (version 22 or later) and 

4. The FORTRAN-10 compiler (version 1 or later) 



D.2 FEATURES OF FOROTS 

The following list briefly describes many specific features; more 
detailed information concerning the implementation of these features 
is given later in this appendix. 

1. Your program may run in either batch or timesharing mode 
without requiring a program change. All differences between 
batch mode and timesharing mode operations are resolved by 
FOROTS. 

2. Your programs may access both directory and non-directory 
devices in the same manner. 

3. FOROTS helps provide complete data file compatibility between 
all DECsystem-10 devices. 

4. FOROTS does not require line-blocking (a requirement that 
each output buffer must contain only an integral number of 
lines) . 

5. Up to 15 data files may be accessed simultaneously. Any 
number or all of the open data files may be accessed 
randomly. 

6. FOROTS treats devices located at remote stations similarly to 
local devices. 

7. Programs written for magnetic tape operations will run 
correctly on disk under FOROTS supervision. FOROTS simulates 
the commands needed for magnetic tape operations. 

8. You may change or specify object program device and file 
specifications via a FOROTS interactive dialogue mode. 

9. Non-FORTRAN binary data files may be read in image mode by 
FOROTS. 

10. FOROTS provides interactive program/operating system error 
processing routines. These routines permit you to route the 
execution of the program to specific error processing 
routines whenever designated types of errors are detected. 

11. An error traceback facility for fatal errors provides a 
history of all subprogram calls made back to the main program 
at the address of the point where the error occurred. 
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12. FOROTS provides a trap handling system for arithmetic 
functions, including default values and error reports. 

13. You may mix ASCII and binary records in the same file, and 
both may be accessed in either sequential or random access 
mode . 

14. FOROTS permits your program to switch from READ to WRITE on 
the same I/O device without loss of data or buffering. 

15. Although primarily designed for use with the FORTRAN-10 
compiler, you may also use FOROTS as an independent I/O 
system, as an I/O system for MACRO-10 object programs, and 
for FORTRAN-10 and F40 object programs. 



D . 3 ERROR PROCESSING 

Whenever a run-time error is detected, the FOROTS error processing 
system takes control of program execution. This system determines the 
class of the error and either outputs an appropriate message at the 
controlling terminal or branches the program to a predesignated 
processing routine. 



D . 4 INPUT/OUTPUT FACILITI ES 

FOROTS uses monitor-buffered I/O during all modes of access except 
DUMP mode. Display devices are supported in dump mode; formatted 
text is handled in ASCII line mode; unformatted files are accessed as 
FORTRAN binary files. (Refer to DECsystem-10 Monitor Calls Manual.) 

The following paragraphs describe I/O data channel and access modes. 



D . 4 . 1 Input/Output Channels Use d I nternally by FOROTS 

Fifteen software channels (1 through 15) are available in I/O 
operations. Software channel is reserved for the following system 
functions : 

1. The printing of error messages, and 

2. The loading and initialization of FOROTS (GETSEG UUO 
operations) 

Software channels 1 through 15 are available for user program data 
transfer operations. When a request is made for a data channel, a 
table is scanned until a free channel is found. The first free 
channel is assigned to the requesting program; on completion of the 
assigned transfer, control of the software channel is returned to 
FOROTS. 
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D • 4 . 2 File Access Mod es 

Data may be transferred between processor storage and peripheral 
devices in two major modes - sequential and random. 



D.4.2.1 Sequenti al Tr ansfer Mode - In sequential data transfer 
operations, the records involved are transferred in the same order as 
they appear in the source file. Each I/O statement executed in this 
mode transfers the record immediately following the last record 
transferred from the accessed source file. A special version of the 
sequential mode (referred to as APPEND) is available for output 
(write) operations. The special APPEND mode permits you to write a 
record immediately after the last logical record of the accessed file. 
During the APPEND operation, the records already in the accessed file 
remain unchanged; the only function performed is the appending of the 
transfY2red records to the end of the file. 

You must specify transfer modes (other than SEQINOUT) by setting the 
ACCESS option of a FORTRAN-10 OPEN statement to one of several 
possible arguments. For the sequential mode, the arguments are 

ACCESS= 'SEQIN' (sequential read-only mode) 
ACCESS-'SEQOUT 1 (sequential write-only mode) 
ACCESS='SEQ1N0UT' (sequential read followed by a sequential 

wr ite ) 
ACCESS='APPEND' (sequential Append mode) 



D.4.2.2 Random Access Mode - This transfer mode permits records to be 
accessed and transferred from a source file in any desired order. 
Random access transfers must be made between ;Jtocessor core and a 
device (disk) that permits random addressing op..- rations to files that 
have been set up for random access. Files f ;; random access must 
contain a specified number of identically si/'d records that may be 
individually accessed by a record number. 

You may accomplish random access transfers in either a read/write mode 
or a special read-only mode. You must specify random transfer modes 
by setting the ACCESS option of an OPEN statement to one of several 
possible arguments. 

ACCESS=' RANDOM' (random read/write mode) 
ACCESS= 'RANDIN' (random special read-only mode) 



D.5 ACCEPTABLE TYPES OF DATA FILES AND THEIR FORMATS 



The following paragraphs describe the types of data files that are 
acceptable to FOROTS. 



D . 5 . 1 ASCII Data Files 

Each record within an ASCII data file consists of a set of contiguous 
7-bit characters. A vertical paper-motion character, such as, a Form 
Feed, a Vertical Tab, or a Line Feed, terminates each set. All ASCII 
records start on a word boundary; the last word in a record is padded 
with nulls, if necessary, to ensure that the record also ends on a 
word boundary. Logical records may be split across physical blocks. 
There is no implied maximum length for logical records. 
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NOTE 

On sequential input, FOROTS does not 
require conformation to word boundaries; 
it reads what it sees. Therefore, any 
file that is written by FOROTS will 
conform to the foregoing format 
requirements . 



D . 5 . 2 FORTRAN Bin ary Da t a Files 

Each logical record in a FORTRAN binary data file contains data that 
the executing program may reference with either a READ or WRITE 
statement. A logical record is preceded by a control word and may 
have one or more control words embedded within it. In FORTRAN binary 
data files, there is no relationship between logical records and 
physical device block sizes. There is no implied maximum length for 
logical records. 



D.5.2.1 Format of B inary Files - A FOROTS binary file may contain 
three forms of Logical Segment Control Words (LSCW) . These LSCWs give 
FOROTS the ability to distinguish ASCII files from binary files. 

LSCW 
START 001+ the number of words in the segment (exclusive of 

any "END" LSCWs) 
CONTINUE 002 indicates that the segment of a disk block 

boundary continues 
END 003+ number of words in the preceding segment including 

LSCWs. 

If the access you specify for a file (through the OPEN statement 
ACCESS = parameter) is 'SEQIN', 'SEQOUT', or 'SEQINOUT', all three 
LSCWs may appear in a record. If the access you specify is 'RANDIN', 
or 'RANDOM', all records are of the same length, and there are no 
CONTINUE LSCWs. 

The following examples illustrate the LSCW. The random access binary 
file contains only 001 and 003 LSCWs. 

C 100K AT A BINARY FILE AND SEE THE LOGICAL SEGMENT 
C CONTROL WORDS. 

OPEN (UN IT si, ACCESS* 'RANDOM' t M0DE» ' B INA"Y* i 
1 RECORD=100) 

I»5 

WRlTE(i'l) (I, J=i,100> 

J*7 

WRITE(1'2) Cj,Kn,100> 

END 
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002000 


001000 


000145- 


-Number of words 00 2 064 


000000 


000005 




002001 


000000 


000005 


in record counting 00/065 


000000 


000005 




.00.5002 


000000 


000005 


ENDLSCWorthc 00 3 066 


000000 


300005 




002003 


000000 


000005 


number of words « - n p * ■» 
following this ««',««« 
word to the 00 2 070 


000000 


000005 




002004 


000000 


000005 


000000 


000005 




002005 


000000 


000005 


F.NDLSCW. 00 2071 


000000 


000005 




2 6 


000000 


000005 


002072 


000000 


000005 




00/007 


000000 


000005 


000073 


000000 


000005 




002010 


000000 


000005 


000074 


000000 


000005 




0020H 


000000 


000005 


000075 


000000 


000005 




002012 


000000 


000005 


002076 


000000 


000005 




002013 


000000 


000005 


002077 


000000 


000005 




002014 


000000 


000005 


002100 


000000 


000005 




002015 


000000 


000005 


002101 


000000 


000005 




00? 016 


000000 


000005 


002102 


000000 


000005 




00/017 


000000 


000005 


002103 


000000 


000005 




00/020 


000000 


000005 


002104 


000000 


000005 




00, '021 


000000 


000005 


002105 


000000 


000005 




002022 


000000 


000005 


00 '106 


000000 


000005 




002023 


000000 


000005 


00 2- 107 


000000 


000005 




002024 


000000 


000005 


00/110 


000000 


000005 




00 2 25 


000000 


000005 


00?111 


000000 


000005 




002026 


000000 


000005 


002112 


000000 


000005 




00<:027 


000000 


000005 


002113 


000000 


000005 




002030 


000000 


000005 


002114 


000000 


000005 




002031 


000000 


000005 


002115 


000000 


000005 




002032 


000000 


000005 


002116 


000000 


000005 




002033 


000000 


000005 


002117 


000000 


000005 




002034 


000000 


000005 


002120 


000000 


000005 




00 2 035 


000000 


000005 


002,121 


000000 


000005 




00/036 


000000 


000005 


002122 


000000 


000005 




00 2 37 


000000 


000005 


000123 


000000 


000005 




002040 


000000 


000005 


000124 


000000 


000005 




00 2041 


000000 


000005 


000125 


000000 


000005 




00 2042 


000000 


000005 


000126 


000000 


000005 




00 2043 


000000 


000005 


000127 


000000 


000005 




002044 


000000 


000005 


000130 


000000 


000005 




002045 


000000 


000005 


000131 


000000 


000005 




00 2046 


000000 


000005 


000132 


000000 


000005 




002047 


000000 


000005 


000133 


000000 


000005 




002050 


000000 


000005 


000134 


000000 


000005 




002051 


000000 


000005 


000135 


000000 


000005 




002052 


000000 


000005 


000136 


000000 


000005 




00 2053 


000000 


000005 


000137 


000000 


000005 




00 2 054 


000000 


000005 


002140 


000000 


000005 




002055 


000000 


000005 


002141 


000000 


000005 




00/056 


000000 


000005 


002142 


000000 


000005 




002057 


000000 


000005 


002143 


000000 


000005 




002060 


000000 


000005 


00./ 14 4 


000000 


000005 




002061 


000000 


000005 


002145 


003000 


000146- 


-END LSCW 


00.'062 


000000 


000005 


002146 


001000 


000145 


Containing the 


002063 


000300 


000005 


002147 


000000 


000007 


number of words 
in the record 








00 2150 


000000 


000007 


including LSCW's. 
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00/151 000030 000007 

00/152 300000 000007 

00/153 000000 000007 

00/154 000000 000007 

00/155 000000 000007 

00/156 000030 000307 

00/157 003000 000007 

00/160 000000 000307 

00/161 300030 000007 

00/162 300030 000007 

00U63 000000 300007 

00/164 000000 000007 

00/165 300000 300007 

00/166 000000 000007 

00/167 000000 000007 

00/170 000000 300007 

00-171 300000 000007 

00/172 300000 000007 

00/173 000000 000007 

00/174 303030 300007 

00/175 300030 000007 

00/176 300000 000307 

00/177 300330 000307 

00.J200 303000 000007 

00/201 003030 000007 

00.'202 000000 000007 

00/203 000030 000007 

00/204 300030 300007 

00/205 000000 000007 

00/206 300000 000007 

00/207 300030 000007 

00/210 000000 000007 

00/211 000030 000007 

00/212 003000 000007 

00/213 000030 000037 

00/214 000000 000007 

00'215 003000 000007 

00/216 300000 000007 

00/217 300000 000007 

00/220 000000 300007 

00/221 000000 000007 

00/222 000000 000007 

00/223 000000 000007 

00/224 000000 000007 

003225 000000 000007 

00/226 000000 000007 

00/227 000000 000007 

00/230 000000 000007 

00/231 000000 000007 

00/232 000000 000007 



00/233 300000 000007 

00/234 300000 000007 

00/235 000000 000007 

00/236 000000 000007 

003237 000000 000007 

00/240 000000 000007 

00/241 003000 000007 

00/242 000000 000007 

00/243 000000 000007 

00/244 300030 000007 

00/245 000000 000007 

00/246 000000 000007 

00/247 000000 000007 

00/250 300000 000307 

00/251 000000 000007 

00/252 000000 000307 

00/253 000000 000007 

00/254 003030 000007 

00/255 003030 000007 

00/256 000000 000307 

00/257 000000 030007 

00/260 300000 000007 

00/261 000000 000007 

00/262 000000 000007 

00/263 000000 000007 

00,<264 300000 000007 

00/265 000000 000007 

00/266 300030 000007 

00/267 000000 000007 

00/270 300000 000007 

00/271 000000 000007 

00/272 003000 000007 

00/273 003000 300007 

00/274 000000 000007 

00/275 000000 000007 

00/276 000330 000007 

00/277 000000 000007 

00/300 000000 000007 

00/301 003000 000007 

00/302 003000 000007 

00/303 300000 000007 

00/304 000000 000007 

00/305 000000 000007 

00/306 300000 000007 

00/307 000000 000007 

000310 000000 000007 

000311 000000 000007 

000312 000000 000007 
00/313 003000 000146 
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In the sequential access binary file, the second record crosses the 
128-word disk boundary and contains a 002 (CONTINUE) LSCW. 



LOOK AT A BINARY FILE AND SEE THE LOGICAL SEGMENT 
CONTROL w 0RDS. 

OPEN ( UN I T *l, MODE" 'BINARY' ) 

I«5 

WRITE(I) (1, J=l,100) 

J«7 

WRITE(I) (J,K»1#100) 

END 



00/000 001000 000145 

003001 000000 000005 

00/002 300000 000005 

00.3003 000000 000005 

00/004 000000 000005 

00/005 000000 000005 

00.3006 000000 000005 

00/007 000000 000005 

00/010 000000 000005 

00*011 000000 000005 

00/012 200000 000005 

00/013 000000 000005 

00/014 000000 000005 

00/015 000000 000005 

00/016 000000 000005 

00 '017 000000 000005 

00/020 000000 0570005 

00/021 000000 000005 

00/022 000000 0^0005 

00/023 000000 000005 

00 !024 000000 000005 

00/025 000000 000005 

00/026 000000 000005 

00/027 000000 000005 

00/030 000000 000005 

00/031 000000 000005 

00/032 000000 000005 

00/033 000000 000005 

00/034 000000 000005 

00/035 000000 000005 

00/0-36 000000 000005 

00/037 000000 3^0005 

00/040 000000 000005 

00/041 000000 000005 

00 1 042 000000 000005 



00/043 000000 000005 

00/044 300000 000005 

00/045 000000 000005 

00/046 Z00000 000005 

00/047 000000 000005 

00/050 000000 000005 

00/051 000000 000005 

00/052 000000 000005 

00/053 000000 000005 

00/054 000000 000005 

00/055 000000 000005 

00/056 000000 000005 

00.5057 000000 000005 

00/060 000300 000005 

00/061 000000 000005 

00/062 000000 000005 

00-063 000000 000005 

00 '064 000000 000005 

00/065 000000 000005 

00/066 000000 000005 

00/067 000000 000005 

00/070 000000 000005 

00/071 000000 000005 

00^072 000000 000005 

00/073 000000 000005 

00/074 000000 000005 

00/075 000000 000005 

00/076 000000 000005 

00/077 000000 000005 

00/100 000000 000005 

00/101 000000 000005 

00/102 000000 2)00005 

00'103 000000 000005 

00/104 300000 000005 

00.3105 000300 000005 
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00£106 0002100 000005 

00/107 000000 300005 

00/110 000000 000005 

00/111 000000 000005 

000112 000000 000005 

000113 000000 000005 
00/114 000000 000005 
002115 000000 000005 
000116 000000 000005 
003117 000000 000005 
00/120 000000 000005 
00/121 000000 000005 
002122 000000 000005 
00/123 000000 300005 
00/124 000000 000005 
003125 000000 000005 
00-*126 000000 000005 
000127 000000 000005 

000130 000000 000005 

000131 000000 000005 
00*5132 000000 000005 

000133 000000 000005 

000134 000000 000005 

000135 000000 000005 
002136 000000 000005 
000137 000000 000005 
00**140 000000 000005 
00/141 000000 000005 
00/142 000000 000005 
003143 000000 000005 
00/144 000000 000005 
00/145 003000 000146 
00/146 001000 000032 
00/147 000000 000007 
00/150 000000 000007 
00/151 000000 000007 
000152 000000 000007 
00/153 000000 000007 
00/154 000000 000007 
00/155 000000 000007 
003156 000000 000007 
00U57 000000 000007 
00/160 000000 000007 
00/161 000000 000007 
00/162 000000 000007 
00*163 000000 000007 
00/164 000000 000007 
00/165 000000 000007 
002166 000000 000007 
000167 000000 000007 
00/170 000000 000007 
000171 000000 000007 
00J172 000000 000007 



Number ot 
words to 
next LSCW. 



00/173 000000 000007 

00/174 000000 000007 

00/175 000000 000007 

000176 000000 000007 

00/177 000000 000007 

00/200 002000 000114- 

00/201 000000 000007 

00/202 000000 000007 

00/203 000000 000007 

00/204 000000 000007 

00/205 000000 000007 

00/206 000000 000007 

00/207 000000 000007 

00/210 000000 000007 

00/211 000000 000007 

00-212 000000 000007 

00/213 000000 000007 

00/214 000000 000007 

00/215 000000 000007 

00^216 000000 000007 

00/217 000000 000007 

00/220 000000 000007 

00/221 000000 000007 

00/222 000000 000007 

00/223 000000 000007 

00/224 000000 000007 

00/225 000000 000007 

00/226 000000 000007 

00/227 000000 000007 

00/230 000000 000007 

00/231 000000 000007 

00/232 000000 000007 

00/233 000000 000007 

00/234 000000 000007 

00/235 000000 000007 

00/236 000000 000007 

00/237 000000 000007 

00/240 000000 000007 

00/241 000000 000007 

00/242 000000 000007 

00?243 000000 000007 

002244 000000 000007 

00/245 000000 000007 

00/246 000000 000007 

00/247 000000 000007 

00/250 000000 000007 

00/251 000000 0/0007 

00/252 000000 000007 

00/253 000000 000007 

00^-254 000000 000/07 

00/255 000000 000007 

00/256 000000 000007 

00'257 000000 0/0007 



— Continue LSCW. 
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00/260 
00/261 
00/262 
002263 
00*5264 
00/265 
00/266 
00/267 
00/270 
002271 
00*272 
00/273 
00/274 
005275 
003 276 



000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 
000000 000007 



00/277 000000 000007 

002300 000000 000007 

00^301 000000 000007 

000302 000000 000007 

002303 000000 000007 

00(2-304 000000 0^0007 

002305 000000 000007 

00/306 000000 000007 

000307 000000 000007 

00/310 000000 000007 

00/311 000000 000007 

00/312 000000 000007 

002313 000000 000007 

001314 003000 000147 



Image mode files contain no LSCWs . You cannot backspace this file 



LOOK AT AN IMAGE MODE FILE AND SEE NO LOGICAL SEGMENT 
CONTROL WORDS. 

OPEN (UN I T«l, MODE" IMAGE' > 



I«5 

WRITE(I) (I, J=lil00) 

J = 7 

wri'teu) (j,k = 1»100> 
end 



00/000 000000 000005 

003001 000000 000005 

000002 000000 000005 

000003 000000 000005 
001*004 000000 000005 
000005 000000 000005 
00/006 000000 000005 
00/007 000000 000005 
00/010 000000 000005 
003011 000000 000005 
00*3012 ^00000 000005 
00/013 000000 000005 
00(?014 000000 000005 
00/015 000000 000005 
00^016 000000 000005 
00/017 000000 000005 
00/020 000000 000005 
00/021 300000 000005 
00/022 000000 000005 
00/023 000000 000005 



00/024 000000 000005 

00/025 000000 300005 

00/026 000000 000005 

00/027 000000 000005 

00/030 000000 000005 

00/031 000000 000005 

00/032 000000 000005 

000033 000000 000005 

00/034 000000 000005 

000035 000000 000005 

00/036 000000 000005 

00/037 000000 000005 

00/040 000000 000005 

000041 000000 000005 

00/042 000000 000005 

00/043 000000 000005 

00/044 000000 000005 

00/045 000000 000005 

00/046 000000 000005 

00/047 000000 000005 
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003050 000000 000005 

003051 000000 000005 
00^052 000000 000005 
003053 000000 000005 
007054 000000 000005 
00^055 ^00000 000005 
003056 000000 000005 
002057 000000 000005 
000060 000000 000005 
003061 000000 000005 
002062 000000 000005 
003063 000000 000005 
002064 000000 000005 

003065 000000 000005 

003066 000000 000005 

003067 000000 0P0005 

003070 000000 000005 

003071 000000 000005 
00/072 000000 000005 
00-'073 000000 000005 

003074 000000 000005 

003075 000000 000005 

003076 000000 000005 
00'077 000000 000005 
00,1100 000000 000005 
003101 000000 000005 
00^102 000000 000005 
00*7103 000000 000005 

003104 000000 000005 

003105 000000 000005 

003106 000000 000005 

003107 000000 000005 
002110 000000 000005 
000111 000000 000005 

003112 000000 000005 

003113 000000 000005 

003114 000000 000005 

003115 000000 000005 

003116 000000 000005 

003117 000000 000005 
000120 000000 000005 

003121 000000 000005 

003122 000000 000005 

003123 000000 000005 

003124 000000 000005 

003125 000000 000005 

000126 000000 000005 

000127 000000 000005 
002130 000000 000005 
000131 000000 000005 

003132 000000 000005 

003133 000000 000005 

003134 000000 000005 



000135 000000 000005 

000136 000000 000005 
003137 000000 000005 

003140 000000 000005 

003141 000000 000005 

003142 000000 000005 

003143 000000 000005 

003144 000000 000007 

003145 000000 000007 

003146 000000 000007 

003147 000000 000007 

003150 000000 000007 

003151 000000 000007 

003152 000000 000007 

003153 000000 000007 

003154 000000 000007 
00^155 000000 000007 

003156 000000 000007 

003157 000000 000007 

003160 000000 000007 

003161 000000 000007 

003162 000000 000007 

003163 000000 000007 

003164 000000 000007 

003165 000000 000007 

003166 000000 000007 

003167 000000 000007 

003170 000000 000007 

00U71 000000 000007 

003172 000000 000007 

003173 000000 000007 
00U74 000000 000007 

003175 000000 000007 

003176 000000 000007 

003177 000000 000007 

003200 000000 000007 

003201 000000 000007 

003202 000000 000007 

003203 000000 000007 

003204 000000 000007 

003205 000000 000007 

003206 000000 000007 

003207 000000 000007 
003210 000000 000007 
0032H 000000 000007 
003212 000000 000007 
000213 000000 000007 

003214 000000 000007 

003215 000000 000007 

003216 000000 000007 

003217 000000 000007 

003220 000000 000007 

003221 000000 000007 
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0013222 000000 000007 

003223 000000 000007 

000224 000000 000007 

003225 000000 000007 

00*5226 000000 000007 

002227 000000 000007 

00/230 000000 000007 

003231 000000 000007 

003232 000000 000007 
00*233 000000 000007 
00/234 000000 000007 
002235 000000 000007 
00/236 000000 000007 
000237 000000 000007 
001*240 000000 000007 
002*241 000000 000007 
00^242 000000 000007 
00/243 000000 300007 
00/244 000000 000007 
00/245 000000 000007 
00/246 0000910 300007 
005247 000000 000007 
00/250 000000 000007 
00'251 000000 000007 
00/252 000000 000007 
00/253 000000 000007 
00*254 000000 000007 



00/255 000000 000007 

00/256 000000 000007 

00/257 000000 000007 

00*260 000000 000007 

00/261 000000 000007 

00?262 000000 000007 

00/263 000000 000007 

000264 000000 000007 

00/265 000000 000007 

00/266 000000 000007 

00''267 000000 000007 

00/270 000000 000007 

00/271 000000 000007 

00 ;, 272 000000 000007 

00/273 000000 000007 

00/274 000000 000007 

00/275 000000 000007 

00/276 000000 000007 

00 ? 277 000000 000007 

00/300 000000 000007 

00/301 000000 000007 

00/302 000000 000007 

00/303 000000 000007 

00/304 000000 000007 

00:''305 000000 000007 

00/306 000000 000007 

003307 000000 000007 



D.5.3 Mixed Mode Data Files 

FOROTS permits files containing both ASCII and binary data records to 
be read. Mixed files may be accessed in either sequential or random 
access mode. Logical ASCII and binary records have the same format as 
described in the preceding paragraphs. In random access mode, the 
record size must be large enough to contain the largest record, either 
ASCII or binary. 
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D.5.4 Image Files 

The image data transfer mode is a buffered mode in which data is 
transferred in a blocked format consisting of a word count located in 
the right half of the first data word of the buffer followed by the 
number of 36-bit data words. The devices that permit image data 
transfers and the form in which the data is read or written are: 



Device Data Forms 

Card Punch In image mode, each buffer contains three 12-bit 

bytes. Each byte corresponds to one card column. 
Since there is room for 81 columns in the buffer 
(3 X 27) and there are only 80 columns on a card, 
the last word contains only 2 bytes of data; the 
third byte is thrown away. Image mode causes 
exactly one card to be punched for each output. 
The CLOSE punches the last partial card and then 
punches an EOF card. 

Card Reader All 12 punches in all 80 columns are packed into 

the buffer as 12-bit bytes. The first 12-bit byte 
contains column 1. The last word of the buffer 
contains columns 79 and 80 as the left and middle 
bytes, respectively. Cards are not split between 
two buffers. 

Disk Data is written on the disk exactly as it appears 

in the buffer. Data consists of 36-bit words. 

Magnetic Tape Data appears on magnetic tape exactly as it 

appears in the buffer. No processing or 
checksumming of any kind is performed by the 
service routine. The parity checking of the 
magnetic tape system is sufficient assurance that 
the data is correct. All data, both binary and 
ASCII, is written with odd parity and at 800 bits 
per inch unless changed by the installation. 

Paper Tape Punch Binary words taken from the output buffer are 

split into six 6-bit bytes and punched with the 
eighth hole punched in each frame. No format 
control or checksumming is performed by the I/O 
routine. Data punched in this mode is read back 
by the paper tape reader in the same mode. 

Paper Tape Reader Characters not having the eighth hole punched are 

ignored. Characters are truncated to six bits and 
packed six to the word without further processing. 
This mode is useful for reading binary tapes 
having arbitrary blocking format. 

Plotter Six 6-bit characters per word are transmitted to 

the plotter exactly as they appear in the buffer. 



D . 6 USING FOROTS 

FOROTS has been designed to lend itself for use as an I/O system for 
programs written in languages other than FORTRAN. Currently, MACRO 
programmers may employ FOROTS as a general I/O system by writing 
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simple MACRO calls that simulate the calls made to FOROTS by a FORTRAN 
compiler. The calls made to FOROTS are to routines that implement 
FORTRAN I/O statements such as READ, WRITE, OPEN, CLOSE, RELEASE, etc. 

FOROTS will provide automatic memory allocation, data conversion, I/O 
buffering, and device interface operations to the MACRO user. 



D.6.1 FOROTS Entry Points 

FOROTS provides the following entry points for calls 
FORTRAN compiler or a non-FORTRAN program: 



from either 



Entry Point Function 

ALCHN. Allocate software channels 

ALCOR. Allocate dynamic core blocks 

CLOSE. Close a file 

DBMS. DBMS interface 

DEC. DECODE routine 

DECHN. De-allocate software channels 

DECOR. De-allocate dynamic core blocks 

ENC. ENCODE routine 

EXIT. Terminate program exeuction 

FIN. Input/Output list termination routine 

FIND. Position to the next record (RANDOM ACCESS) 

FORER. Error processor 

FUNCT. Overlay interface 

IN. Formatted input routine 

IOLST. Input/Output list routine 

MTOP. File utility processing routine 

NLI. NAMELIST input routine 

NLO. NAMELIST output routine 

OPEN. Open a file 

OUT. Formatted output routine 

RELEA. Release a device (CLOSE implied) 

RESET. Job initialization entry 

RTB . Binary input routine 

TRACE. Trace subroutine calls 

WTB. Binary output routine 



D.6.2 Calling Sequences 

You must use the following general form for all calls made to FOROTS: 

MOVEI 16,ARGBLK 
PUSHJ 17, Entry Point 

(control is returned here) 

where : 

1. ARGBLK is the address of a specifically formatted argument 
block that contains information needed by FOROTS to 
accomplish the desired operation. 

2. Entry Point is an entry point identifier (see list given in 
Paragraph D.6.1) that specifies the entry point of the 
desired FOROTS routine. 
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With three exceptions, all returns from FOROTS will be made to the 
program instruction immediately following the call (PUSHJ 17, entry 
point instruction). The exceptions are: 

1. An error return to a specified statement number, i.e., READ 
or WRITE statement ERR=option, 

2. An end-of-file return to a statement number, i.e., READ or 
WRITE statement END=option, 

3. A fatal error that returns to the monitor or to a debug 
package . 

Paragraphs D.6.3.1 through D.6.3.11 give the MACRO calls and required 
argument block formats needed to initialize FOROTS and FOROTS I/O 
operations . 

Argument blocks conform to the subprogram calling convention described 
in Appendix C. However, there is one exception in dealing with the 
first word of an I/O initialization call, i.e., WTB., ENC . , RTW. , 
etc., for a FORTRAN logical unit number. In previous versions of 
FOROTS and FORTRAN-10, if the indirect bit was not set, the argument 
was immediate; if it was set to 1 (one), the argument was the address 
of the variable. The type field was always (zero). 

With Version 4 of FORTRAN-10 and Version 4 of FOROTS this convention 
has been changed. If the type field of the first word of an I/O 
initialization call for the FORTRAN logical unit number is (zero) , 
the argument is an immediate mode (18 bit) constant wherever possible. 
If the type field is integer, the argument is indirect (see Appendix 
C, Table C-l, Type 2) . 

This exception should not cause any upward compatibility problems, 

since all previously working programs will still function. An added 

feature with this convention is that it permits the following 
construct to be correctly implemented: 

N=-4 !SET FOR TERMINALS 

READ (N,100) I, J 
100 FORMAT (21 5) 



D . 6 .. 3 MACRO Calls for FOROTS Fu ncti ons 

The following paragraphs describe the forms of the MACRO calls to 
FOROTS that are made by the FORTRAN-10 compiler. The calls described 
are identified according to the language statement that they 
implement. The following terms and abbreviations may be used in the 
description of the argument block (ARGBLK) of each call: 

► = pointer to the second word in the argument block. (This 

is the address pointed to by the argument ARGBLK in the 



calling sequence.) 
n = count of ASCII characters, 
f = FORMAT statement address, 

v = the name of an array containing ASCII characters, 
list = an Input/Output list, 
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c = the statement to which control is transferred on an "END 
OF FILE" condition, 

d = the statement to which control is transferred on an 
"ERROR" condition, 

name = a NAMELIST name, 

R = a variable specifying the logical record number for 
random access mode, 

* = list directed I/O; the FORMAT statement is not used, 

type = type specification of a variable or constant, 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18- 


-6 
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type 
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n 
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X 
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type 


I 
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Format 
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Reserved 


type 


I 
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V 



D . 6 . 3 . 1 I/O Statements/ Sequential Access Calling Sequen ces - The 
READ and WRITE statements for formatted sequential data transfer 
operations and their calling sequences are: 

READ(u,f ,END=c, ERR=d) list 
MOVEI 16, ARGBLK 
PUSHJ 17, IN. 



and 



WRITE(u,f ,END=c , ERR=d) list 
MOVEI 16, ARGBLK 
PUSHJ 17, OUT. 
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where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 
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The READ and WRITE statements for unformatted sequential data transfer 
operations and their calling sequences are: 

READ(u,END=c , ERR=d) list 
MOVEI 16, ARGBLK 
PUSHJ 17, RTB. 

and 

WRITE (u,END=c, ERR=d) list 
MOVEI 16, ARGBLK 
PUSHJ 17, WTB. 

where ARGBLK is 



0-8 


9-12 


13 
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14-17 



18-35 



D.6.. 3.2 N AMELIST I/O, Sequential Ac c ess Calling Seque nces - The READ 
and WRITE statements for NAMELIST-directed sequential data transfer 
operations and their calling sequences are: 

READ (u,name) 

READ (u, name, END=c , ERR=d) 

MOVEI 16, ARGBLK 
PUSHJ 17, NLI. 



and 



WRITE (u, name) 

WRITE (u, name, END=c , ERR=d) 



MOVEI 16, ARGBLK 
PUSHJ 17, NLO. 
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where ARGBLK is 



0-8 
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The NAMELIST table is generated from the FORTRAN NAMELIST. The first 
word of the table is the NAMELIST name; following that are a number 
of 2-word entries for scalar variables, and a number of (N+3)-word 
entries for array variables, where N is the dimensionality of the 
array. 

The names you specify in the NAMELIST statement are stored, in SIXBIT 
form, first in the table. Each name is followed by a list of 
arguments associated with the name; this argument list may be of any 
length and is terminated by a zero entry. The name argument list may 
be in either a scalar or an array form (refer to the following 
diagrams) . 



D.6.3.3 Array Offsets and Factoring - Address calculations .used to 
reference a given array element involve factors and offsets. For 
example : 

Array A is dimensioned 

DIMENSION A ( Ll/Ul , L2/U2 , L3/U3 , . . . Ln/Un ) 

The size of each dimension is represented by 

51 = Ul-Ll+1 

52 = U2-L2+1 
etc . 

In order to calculate the address of an element referenced by 

A (11,12,13, .. .In) 
the following formula is used: 

A+(I1-L1)+(I2-L2)*S1+(I3-L3)*S2*S1+. . . + ( In-Ln) *S [n-1] * . . .*S2*S1 

The terms are factored out depending on the dimensions of the array 
and not on the element referenced to arrive at the formula 

A+(-L-L2*Sl-L3*S2*Sl. . . ) +I1+I 2*S1+I3*S2*S1 . . . 

The parenthesized part of this formula is the offset for a single 
precision array and it is referred to as the Array Offset. 
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For each dimension of a given array, there is a corresponding factor 
by which a subscript in that position will be multiplied. From the 
last expression, one can determine the factor for dimension n to be 

S[n-l]*S[n-2]*. . .*S2*S1 
For double-precision and complex arrays, the expression becomes 

A+2* (Il-Ll)+2* (I2-L2) *Sl+2* (I3-L3) *S2+S1+. . . 
Therefore, the array offset for a double-precision array is 

2* (-L1-L2*S1~L3*S2*S1. . .) 
and the factor for the nth dimension is 

2*S[n-l]*S[n-2]*. . .*S2*S1 

The factor for the first dimension of a double-precision array is 
always 2. The factor for the first dimension of a single-precision 
array is always 1. 

SCALAR ENTRY in a NAMELIST Table 
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ARRAY ENTRY in a NAMELIST Table 
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D.6.3.4 I/O Statements, Random Access Calling Sequences - The READ 
and WRITE statements for random access data transfer operations and 
their calling sequences are: 

READ (u#R,f ,END=c, ERR=d) list 
READ (u#R,END=c, ERR=d) list 
MOVE I 16, ARGBLK 
PUSHJ 17, RTB. 

and 

WRITE (u#R,f ,END=c , ERR=d) list 

WRITE (u#R,END=c, ERR=d) list 

MOVEI 16, ARGBLK 

PUSHJ 17, WTB. 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-6 





Rese 
Rese 


rved 
rved 


type 

7 

7 
type 
type 

2 


I 
I 
I 
I 
I 
I 


X 
X 
X 
X 
X 
X 


u 

c 

d 

f 

format size (in words) 

address of 
Record Number 



f and the format size in words are if the I/O statement is 
unformatted . 



D . 6 . 3 . 5 Calling Sequences for Statements That Use Default Devices - 
The FORTRAN-10 statements that require the use of a reserved system 
default device and their calling sequences are: 

Default Device 



ACCEPT f, list 
READ f, list 
REREAD f, list 



UNIT=-4 
UNIT=-5 
UNIT=-6 



(TTY) 
(CDR) 
(REREAD) 



MOVEI 16, ARGBLK 
PUSHJ 17, IN. 
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0-8 


9-12 


13 


14-17 


18-35 




-5 













Rese 


rved 


2 


I 


X 


u 








7 


I 


X 


c 








7 


I 


X 


d 








type 


I 


X 


f 




i 


' 












Reserved 


type 


I 


X 


Format Size 
(in words) 





Default Device 



PRINT f, list 


UNIT=-3 


(LPT) 


PUNCH f, list 


UNIT=-2 


(PTP) 


TYPE f, list 


UNIT=-1 


(TTY) 


MOVE I 16, ARGBLK 






PUSHJ 17, OUT. 







where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 






-5 








— 


Rese 


rved 


2 


I 


X 


u 






7 


I 


X 


c 










7 


I 


X 


d 










type 


I 


X 


f 






1 


' 














Reserved 


type 


I 


X 


format size 


(in words) 





D-21 



FOROTS 



D.6.3.6 Statements to Position Magnetic Tape Units - The formatted 
and unformatted FORTRAN-10 statements that may be used to control the 
positioning of a magnetic tape device and their calling sequences are: 



Function 
(FORTRAN Statement) 



FOROTS Code 



SKIPFILE (u) 
BACKFILE (u) 
BACKSPACE (u) 
ENDFILE (u) 
REWIND (u) 
SKIPRECORD (u) 
UNLOAD (u) 



CALL: 

MOVEI 16, ARGBLK 
PUSHJ 17, MTOP. 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-4 






X 





Rese 


rved 


type 


I 


u 






7 


I 


X 


c 






7 


I 


X 


d 


1 


r 










Reserved 


type 


I 


X 


FOROTS code 



D.6.3.7 List Directed Input/Output Statements - You may write any 
form of a sequential Input/Output statement as a list-directed 
statement by replacing the referenced FORMAT statement number with an 
asterisk (*) . The list-directed forms of the READ and WRITE 
statements and their calling sequences are: 



READ (u 



END=c, ERR=d) list 



and 



MOVEI 16, ARGBLK 
PUSHJ 17, IN. 



WRITE (u, *, END=c , ERR=d) list 



MOVEI 16, ARGBLK 
PUSHJ 17, OUT. 
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0-8 


9-12 


13 


14-17 


18-35 


-5 





Rese 


rved 


2 


I 


X 


u 








7 


I 


X 


c 








7 


I 


X 


d 






















1 


' 












Reserved 

















D.6.3.8 I nput/Output Data Lists - The compiler generates a calling 
sequence "to the runtime system if an I/O list is defined for the READ 
or WRITE statement. The argument block associated with the calling 
sequence contains the addresses of the variables and arrays to be 
transferred to or from an I/O buffer. The general form of an I/O list 
calling sequence is: 

MOVEI 16, ARGBLK 
PUSHJ 17, IOLST. 

Any number of elements may be included in the ARGBLK. The end of the 
argument block is specified by a zero entry or a call to the FIN. 
entry. 



Mnemonic Name 



FOROTS Value 



DATA 
SLIST 
ELI ST 
FIN 



The elements of an I/O list are: 

1 . DATA 

The DATA element converts one single- or double-precision or 
complex item from external to internal form for a READ 
statement and from internal to external form for a WRITE 
statement. Each DATA element has the following format. 



0-8 


9-12 


13 


14-17 


18-35 


DATA 


type 


I 


X 


SCALAR ADDR 
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2. SLIST 



The SLIST argument converts an entire array from internal to 
external form or vice versa, depending on the type of 
statement, i.e., READ or WRITE, involved. An SLIST table has 
the following form: 



0-8 


9-12 


13 


14-17 


18-35 


SLIST 




I 


X 


♦ELEMENTS 






I 


X 


INCREMENT 





type 


I 


X 


BASE ADDR1. 



For example, the sequence: 

DIMENSION A(100) ,B(100) 
READ(-,~) A 

or 
READ(-,-) (A(I) ,1=1,100) !only when the /OPT switch is used 

develops an SLIST argument of the form: 



0-8 


9-12 


13 


14-17 


18-35 





2 











144 














1 





2 








A 


4 















More than one base address may appear in a SLIST as long as 
the increment is the same. The sequence 

DIMENSION A(100), B(100) 

WRITE (-,-) (A(I) ,B(I) ,1=100) ! only when the /OPT 

switch is used 

develops a SLIST argument of the form: 



0-8 


9-12 


13 


14-17 


18-35 





2 











144 














1 





2 








A 





2 








B 


4 















D-24 



FOROTS 



3. ELIST 



The SLIST format permits only- a single increment for a number 
of arrays to be specified while the ELIST permits different 
increments to be specified for different arrays. 

The format of the ELIST is 



0-8 


9-12 


13 


14-17 


18-35 


ELIST 








No. Elements to 
transfer 
increment 1 

Base ADDR 1 
increment 2 

Base ADDR 2 
increment N 

Base ADDR N 



For example, the FORTRAN sequence 

DIMENSION IC(6,100), IB(100) 
WRITE (-,-) (IB(I),IC(1,I),I=1,100) 

produces the ELIST 



0-8 


9-12 


13 


14-17 


18-35 


3 











144 














1 





2 








IB 














12 





2 








IC 


4 















The increment may be zero. This could be produced by the 
sequence 

DIMENSION A(100) 

WRITE(-,-) (K, 1=100) lonly when the /OPT switch is used 

The zero may not appear as an immediate constant in the 
argument block. The ELIST for the previous example would be 



0-8 


9-12 


13 


14-17 


18-35 


3 











144 





2 








Pointer to a word 
containing a zero 





type 








K 


4 
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4. FIN 



The end of an I/O list is indicated by a call to the FIN 
routine in the object time system. This call must be made 
after each I/O initialization call, including calls with a 
null I/O list. The FIN routine may be entered by an explicit 
call or by an argument in the I/O list argument block. If 
both calls are used, the explicit call has no meaning. The 
FIN element has the following format: 



EXPLICIT CALL: 
PUSHJ 17, FIN, 



D.6.3.9 OPEN and CLOSE Statements, Calling Sequences - The form and 
calling sequences for the OPEN and CLOSE FORTRAN-10 statements are: 

OPEN STATEMENT CALL 

MOVEI 16, ARGBLK 
PUSHJ 17, OPEN. 

CLOSE STATEMENT CALL 

MOVEI 16, ARGBLK 
PUSHJ 17, CLOSE. 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


Negative of 
the number 
of words in 
block not 
including 
this one. 








G 
G 
G 

G 


2 

7 

7 
type 
type 
type 

type 


I 
I 
I 
I 
I 
I 

I 


X 
X 
X 
X 
X 
X 

X 


u 
c 
d 
H 
H 
H 

H 



The G field (bits through 8) contains a 2-digit numeric that defines 
the argument name; the H field (bits 18 through 35) contains an 
address which points to the value of the argument. 
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The numeric codes that may appear in the G field and the argument that 
each identifies are: 



G Field 



Open Argument 



G Field Open Argument 



01 


DIALOG 


12 


MODE 


02 


ACCESS 


13 


FILE SIZE 


03 


DEVICE 


14 


RECORD SIZE 


04 


BUFFER COUNT 


15 


DISPOSE 


05 


BLOCK SIZE 


16 


VERSION 


06 


FILENAME 


22 


ASSOCIATE VARIABLE 


07 


PROTECTION 


23 


PARITY 


10 


DIRECTORY 


24 


DENSITY 



D. 6. 3.10 Memory Allocation Routine s - The memory management module is 
called to allocate or de-allocate core blocks. There are two entry 
points, ALCOR. and DECOR., that control memory allocation and 
de-allocation . 

Use the ALCOR. entry to allocate the number of words specified in the 
argument block variable. Upon return, AC will contain either the 
address of the allocated core block or a -1 value, which indicates 
that core is not available. The calling sequence for ALCOR. call is: 

MOVE I 16, ARGBLK 
PUSHJ 17, ALCOR. 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-1 




I 







Reserved 


type 


X 


Address of 
Number of Wor 



Use the DECOR. entry to de-allocate a previously allocated block of 
memory; the argument variable must be loaded with the address of the 
core block to be returned. Upon return AC is set to 0. 

If the number of desired words is N, ALCOR. actually removes N+l 
words from free storage. The pointer returned points to the second 
word (word 1 as opposed to word 0) removed from free storage. The 
word contains the negative value of N in its left half. This word is 
used by FOROTS to maintain linked lists of allocated (using ALCOR.) 
and free storage. 

The calling sequence for a DECOR. call is: 

MOVE I 16, ARGBLK 
PUSHJ 17, DECOR. 
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where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-1 





Reserved 


type 


I 


X 


Pointer to word 
containing 
address of block 
to be returned 



D . 6 . 3 . 1 1 Software Channel Allocation And De-allocation Routines - Yo u 
may allocate software channels in MACRO programs via calls to the 
ALCHN. routine and de-allocate them by calls to the DECHN. routine. 
Values are returned in AC 0. 

Use the ALCHN. entry to allocate a particular channel or the next 
available channel. The channel to be allocated is passed to ALCHN. 
in the argument block variable. Zero is passed in the argument block 
variable to allocate the next available channel. Allowed channels are 
1 through 17 (octal). If the channel requested is not available, or 
all channels are in use, ALCHN. returns with a -1 in AC 0. In normal 
returns, AC contains the assigned number. 

The calling sequence of an ALCHN. routine is: 

MOVEI 16, ARGBLK 
PUSHJ 17, ALCHN. 

where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-1 





Reserved 


type 


I 


X 


Pointer to a word 
containing 
the channel # 
or zero 



Use the DECHN. entry to de-allocate a previously assigned channel. 
The channel to be released is passed to DECHN. in the argument block 
variable. If the channel to be de-allocated was not assigned by 
ALCHN. and thus cannot be de-assigned, AC is set to -1 on return. 

The calling sequence for a DECHN. routine is: 

MOVEI 16, ARGBLK 
PUSHJ 17, DECHN. 
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where ARGBLK is 



0-8 


9-12 


13 


14-17 


18-35 


-1 





Reserved 


type 


I 


X 


Pointer to a word 
containing 
the channel # 
to be released 



D . 7 FUNCTIONS TO FACILITATE OVERLAYS 

FOROTS provides a subroutine (FUNCT.) to serve as an interface with 
the LINK-10 overlay handler. This subroutine consists of a group of 
functions that allow the overlay handler to perform I/O, core 
management, and error message handling. These functions have only one 
entry point, FUNCT., and they are called by the sequence 

MOVE I 16, ARGBLK 
PUSHJ 17, FUNCT. 

The general form of the ARGBLK is 



ARGBLK 





0-17 


18-35 




Negative of the 







number of words 






in block 




_ 


type 


function number 


^ 




type 


error code 




type 


status 




type 


argument 1 




type 


argument 2 




type 


argument 3 




type 


argument n 



where 



type 

function number 

error code 



status 



the FORTRAN argument type (see Appendix C) 

the number of one of the required functions 

the 3-letter mnemonic output by the object 

time system after ?, %, or [. (See Table 

D-l.) 

undefined on the call and set on the return 

with one of the values below. 



-1 Function not implemented 
Successful return 
l....n Specific error message 
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Table D-l 
Function Numbers and Function Codes 



Function 


Function 


Function Description 


Number 


Mnemonic 







ILL 


Illegal function 


1 


GAD 


Allocates core from a specific address 


2 


COR 


Allocates core from available core 


3 


RAD 


De-allocates core 


4 


GCH 


Gets or assigns an I/O channel 


5 


RCH 


Releases an I/O channel 


6 


GOT 


Allocates core from FOROTS 


7 


ROT 


De-allocates core from FOROTS 


8 


RNT 


Returns the initial runtime from FOROTS 


9 


IFS 


Returns initial runtime file spec. from 
FOROTS 


10 


CBC 


Cuts back core if possible 



FUNCTION (ILL) - This function is illegal. The argument block is 
ignored, and the function always returns a status of -1. 

FUNCTION 1 (GAD) - This function allocates core from a specific 
address. The arguments are: 

arg 1 address at which to begin core allocation 
arg 2 number of words of core to allocate 

The return statuses are: 

core allocated (arg 1 and 2 unchanged) 

1 not enough core available in system (arg 1 and arg 2 unchanged) 

2 cannot allocate core at specified address (arg 1 and arg 2 
unchanged ) 

3 illegal arguments (i.e., address + size is greater than 256K) 
(arg 1 and arg 2 unchanged) 



FUNCTION 2 (COR) 
arguments are: 



This function allocates core from any address. The 



arg 1 undefined 

arg 2 size of core to allocate 

The returned statuses are: 

core allocated (arg 2 unchanged, arg 1 beginning address of the 
allocated core) 

1 not enough core available in system (arg 2 unchanged) 
3 illegal argument (i.e., size is greater than 256K) 

FUNCTION 3 (RAD) - This function de-allocates core at the specified 
address. The arguments are: 

arg 1 address of core to be de-allocated 
arg 2 number of words to be de-allocated 

The returned statuses are: 



core de-allocated 

1 core cannot be de-allocated 

3 illegal argument (i.e., both the address and the size are 
greater than 256K) 

D-30 



FOROTS 

FUNCTION 4 (GCH) - This function assigns an I/O channel. The argument 
is : 

arg 1 undefined 

The returned statuses are: 

I/O channel assigned (arg 1 channel number) 

1 no I/O channels available 

FUNCTION 5 (RCH) - This function releases an I/O channel. The 
argument is: 

arg 1 I/O channel number to be released 

The returned statuses are: 

channel released 

1 invalid channel number 

FUNCTION 6 (GOT) - This function gets core from the object time system 
list. The arguments are: 

arg 1 address at which to allocate core 
arg 2 number of words of core to allocate 

The returned statuses are: 

core allocated (arg 1 and arg 2 unchanged) 

1 not enough core available in system (arg 1 and arg 2 unchanged) 

2 cannot allocate core at specified address (arg 1 and arg 2 
unchanged) 

3 illegal argument(s) 

This function differs from function 1 in that if the object time 
system has two free core lists, then function 1 is used to allocate 
space for links, and this function is used to allocate space for I/O 
buffers. Function 1 uses the free core list for LINK-10, and function 
6 uses the list for the object time system. 

FUNCTION 7 (ROT) - This function returns core to the object time 
system. The arguments are: 

arg 1 address of core to be de-allocated and returned 
arg 2 size of core to be de-allocated and returned 

The returned statuses are: 

core de-allocated 

1 core cannot be de-allocated 
3 illegal argument 

FUNCTION 8 (RNT) - This function returns the initial runtime from the 
object time system. The argument is:: 

arg 1 undefined 
The returned status is: 

always (arg 1 - runtime from the object time system) 
This function is used only if the user desires a log file. 
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FUNCTION 9(IFS) - This function returns the initial runtime file 
specification from the object time system. The specification is 
obtained from accumulators 0, 7, and 11 after the initial RUN command. 
The arguments are: 

arg 1 undefined 
arg 2 undefined 
arg 3 undefined 

The returned status is: 

always (arg 1 - device from accumulator 11, arg 2 - filename 
from accumulator 0, and arg 3 - directory from accumulator 7) 

This function tells the overlay handler which file to read after the 
initial RUN command. 

FUNCTION 10 (CBC) - This function cuts back core if possible and is 
used to reduce the size of the user job. There are no arguments. 

The returned status is: 

always 



D . 8 LOGICAL/PHYSICAL DEVICE ASSIGNMENTS 

You make FORTRAN logical and physical device assignments at run time, 
or standard system assignments are made according to a FOROTS Device 
Table, i.e., DEVTB . Table D-2 shows the standard assignments 
contained by the Device Table. 
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Table D-2 
FORTRAN Device Table 



Device/Function 



FORTRAN Logical 
Unit Number 



Use 



REREAD 

CDR 

TTY 

LPT 

PTP 

TTY 



DSK 

CDR 

LPT 

CTY 

TTY 

PTR 

PTP 

DIS 

DTA1 

DTA2 

DTA3 

DTA4 

DTA5 

DTA6 

DTA7 

MTAO 

MTA1 

MTA2 

FORTR 

DSK 

DSK 

DSK 

DSK 

DSK 

DEVI 

DEV2 

DEV3 

DEV4 

DEV5 



-6 
-5 
-4 
-3 
-2 
-1 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



REREAD statement 

READ statement 

ACCEPT statement 

PRINT statement 

PUNCH statement 

TYPE statement 

ILLEGAL 

DISK 

Card Reader 

Line Printer 

Console Teletype 

User ' s Teletype 

Paper Tape Reader 

Paper Tape Punch 

Display 

DECtape 

DECtape 

DECtape 

DECtape 

DECtape 

DECtape 

DECtape 

Magnetic Tape 

Magnetic Tape 

Magnetic Tape 

Assignable Device 

DISK 

DISK 

DISK 

DISK 

DISK 

Assignable Devices 



DEV39 



63 
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APPENDIX E 
FORDDT 



FORDDT is an interactive program used to debug FORTRAN programs and 
control their execution. By using the symbols created by the FORTRAN 
compiler, FORDDT allows you to examine and modify the data and FORMAT 
statements in your program, set breakpoints at any executable 
statement or routine, trace your program statement-by-statement, and 
make use of many other debugging techniques described in this 
appendix . 

Table E-l lists all the commands available to the user of FORDDT. 



Table E-l 
Table of Commands 



Command 


Purpose 


Data Access Commands 




ACCEPT 


Modifies data locations. 


TYPE 


Displays data locations. 


Declarative Commands 




GROUP 


Defines indirect lists for TYPE statements. 


MODE 


Specifies format of typeout. 


OPEN 


Accesses program unit symbol table. 


PAUSE 


Places pause requests. 


REMOVE 


Removes pause requests. 


DIMENSION 


Defines dimensions of arrays for FORDDT 




references. (Unnecessary if 




/DEBUG:DIMENSIONS was used. See Table 




B-2. ) 


DOUBLE 


Defines dimensions of double-precision 




arrays for FORDDT references. (Unnecessary 




if /DEBUG: DIMENSIONS was used. See Table 




B-2.) 
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Table E-l (Cont.) 
Table of Commands 



Command 


Purpose 


Control Commands 




START 


Begins execution of FORTRAN program. 


CONTINUE 


Continues execution after a pause. 


GOTO 


Transfers control to some program statement 




within the open program unit. 


NEXT 


Traces execution of the program. 


STOP 


Terminates program and returns to monitor 




mode . 


DDT 


Enters DDT (if DDT is loaded) . 


Other Commands 




LOCATE 


Lists program unit names in which a given 




symbol is defined. 


STRACE 


Displays routine backtrace of current 




program status. 


WHAT 


Displays current DIMENSION, GROUP, and 




PAUSE information. 



E.l INPUT FORMAT 

FORDDT commands are made up of alphabetic FORTRAN-like identifiers and 
need consist of only those characters required to make the command 
unique. If you wish to specify parameters, a space or tab is required 
following the command name. FORDDT expects a parameter if a delimiter 
(i.e., space or tab) is found. Comments may be appended to command 
lines by preceding the comment with an !. 



E.l.l Variables and Arrays 

FORDDT allows you to access and modify the data locations in your 
program by using standard FORTRAN-10 symbolic names. Variables are 
specified simply by name. Array elements are specified in the 
following format: 



name (SI, 



,Sn) 



where 



name 

(SI,. . . ,Sn) 



= a FORTRAN variable or array name 

= the subscripts of the particular array 



You may reference an entire array simply by its unsubscr ipted name; 
you may specify a range of array elements by inputting the first and 
last array elements of the desired range, separated by a dash(-). 
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Examples 



ALPHA 

ALPHA (7) 

ALPHA(PI) 

ALPHA (2) -ALPHA (5) 



E.1.2 Numeric Conventions 



FORDDT accepts optionally signed numeric data in the standard 
FORTRAN-10 input formats: 

1. INTEGER - A string of decimal digits. 

2. FLOATING-POINT - A string of decimal digits optionally 
including a decimal point. Standard engineering and 
double-precision exponent formats ace also accepted. 

3. OCTAL - A string of octal digits optionally preceded by a 
double quote (" ) . 

4. COMPLEX - An ordered pair of integer or real constants 
separated by a comma and enclosed in parentheses. 



E . 1 . 3 Statement Labels and Source Line Numbers 

FORTRAN statement labels are input and output by straightforward 
numeric reference, i.e., 1234. However, source line numbers must be 
input to FORDDT with a number sign (#) preceding them. This mandatory 
sign distinguishes statement labels from source line numbers. 



E.2 NEW USER TUTORIAL 

The new FORDDT user can rely on the commands described below as a 
basis for debugging FORTRAN programs. These commands are easy to 
understand and apply. 



E.2,1 Basic Commands 

The easiest method of loading and starting FORDDT is: 

.DEBUG filename. ext (DEBUG)/F10 

FORDDT will respond with 

ENTERING FORDDT 
>> 

Just as an asterisk (*) signifies FORTRAN-10's readiness, the two 
angle brackets signify that FORDDT is awaiting one of the following 
commands : 

OPEN Makes available to FORDDT the symbol names in a 
particular program unit of the FORTRAN program. When a 
program unit symbol table is opened, the previously 
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open program unit is automatically closed. When FORDDT 
is entered, the MAIN program is automatically opened. 
The command format is: 

OPEN name 

This will open the particular program unit named and 
allow all variables within that subprogram to be 
accessible to FORDDT. 

OPEN 



START 



with no arguments will reopen the symbol table of the 
main program unit. 

Starts your program at the main program entry point. 
The command format is: 



START 

STOP Terminates program execution, causes all files to be 
closed, and exits to the monitor. The command format 
is : 

STOP 

MODE Defines the display format for succeeding FORDDT TYPE 
commands. You need type only the first character of 
the mode to identify it to FORDDT. The modes are: 

Mode Meaning 

A ASCII (left-justified) 

C COMPLEX 

D DOUBLE-PRECISION 

F FLOATING-POINT 

I INTEGER 

OCTAL 

R RASCII (right-justified) 

Unless the MODE command is given, the default typeout 
mode is the floating-point format. 

The command format is: 

MODE list 

where list contains one or more of the mode identifiers 
separated by commas. The current setting can be 
changed by issuing another MODE command. If more than 
one mode is given, the values are typed out in the 
order: F ,D,C , I ,0, A, R 

MODE 



with no arguments will reset FORDDT 
setting of floating-point format. 



to the original 



TYPE Allows you to display the contents of one or more data 
locations. They are displayed on your terminal 
formatted according to the last MODE specification. 
The command format is: 

TYPE list 
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where list may contain one or more arrays, variables, 
array elements, or array element ranges separated by 
commas. For example: 

TYPE I, ALPHA, BETA ( 2) , J ( 3) -J ( 5 ) 

Each item will be displayed in each of the currently 
active typeout modes as set by the last MODE command. 

ACCEPT Allows you to change the contents of a FORTRAN 
variable, array, array element, or array clement range. 
The command format is: 



ACCEPT name/mode value 



where 

name = the name of the variable, array, array 
element, or array element range to be 
modified. If the field contains an 
unsubscr ipted array name or an element 
range, it causes all the elements to be 
set to the given value (see special case 
for ASCII in Section F.6). 

mode = the format of the data value to be 
entered. If given, it must be preceded by 
a slash (/) and immediately follow the 
name. (Note that /mode does not. apply to 
FORMAT modification.) 

value = the new value to be assigned. It must 
correspond in format to the given mode. 

Data Modes 

You need type only the first character of a data mode 
to identify it to FORDDT. If not specified, the 
default mode is REAL. The following input modes are 
available : 



Mode Meaning 

A ASCII (left-justified) 

C COMPLEX 

D DOUBLE-PRECISION 

F REAL 

I INTEGER 

OCTAL 

R RASCII (right-justified) 

S SYMBOLIC 



Example 

/F00/ 

(1. 25,-78. E+9) 
123.4567890 
123.45678 
1234567890 
76543210 
\BAR\ 
PSI (2,4) 



An example of the ACCEPT command format is: 

ACCEPT ALPHA 100.6 

This changes the value of the variable ALPHA to 100.6 
with the default input mode of REAL, since mode was not 
specified . 

PAUSE Allows you to set a breakpoint at any label, line 
number, or subroutine entry in your program. You may 
set up to ten pauses at one time. When one of these 
pauses is encountered, execution of the FORTRAN program 
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is suspended and control is transferred to FORDDT. 

Also, when a pause is encountered, the symbol table of 

that subprogram is automatically opened. The command 

format is: 



PAUSE P 

where P is a statement label number, line 
routine entry point name; for example, 

PAUSE 100 



number , or 



will cause a breakpoint at statement label 100 
currently open program unit. 



of the 



Note that subprogram parameter values will be displayed 
when a pause is encountered at a subprogram entry 
point . 

CONTINUE Allows the program to resume execution after a FORDDT 
pause. After a CONTINUE is executed, the program 
either runs to completion, or it runs until another 
pause is encountered. If you include a value with this 
command, the program will run until the nth occurrence 
of the given pause or until a different pause is 
encountered. The command formats are: 

CONTINUE 

or 
CONTINUE n 

Example 

CONTINUE 15 

will continue execution until the fifteenth occurrence 
of the pause. 

REMOVE Used to remove those pauses from the program previously 
set up by the PAUSE command. The command format is 

REMOVE P 

where P is the number of the statement label where the 
pause was set, i.e., 

REMOVE 100 

will remove the pause at statement label 100. 

Note that REMOVE with no arguments will remove all 
pauses; therefore, no abbreviation of the command is 
allowed in this instance. This precaution prevents the 
accidental removal of all pauses. 

WHAT Displays on your terminal the name of the currently 
open program unit and any currently active pause 
settings. The command format is: 

WHAT 
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E . 3 FORDDT AND T HE FORTK AN-1 /DEB UG SWITCH 

Most facilities of FORDDT are available without the FORTRAN-10 /DEBUG 
features; however, if you do not use the /DEBUG switch when compiling 
a FORTRAN program, the trace features (NEXT command) will not be 
available, and several of the other commands will be restricted. 

Using the /DEBUG switch tells FORTRAN-10 to compile extra information 
for FORDDT. (See Appendix B, Using the Compiler, for a complete 
description of each feature.) The additional features include: 

1. /DEBUG:DIMENSIONS, which will generate dimension information 
to the REL file for all arrays dimensioned in the subprogram. 
The dimension information will automatically be available to 
FORDDT if you wish to reference an array in a TYPE or ACCEPT 
command. This feature eliminates the need to specify 
dimension information for FORDDT by using the DIMENSION 
command . 

2. /DEBUG: LABELS, which will generate labels for every 
executable source line in the form "line-number L" . If these 
labels are generated, they may be used as arguments with the 
FORDDT commands PAUSE and GOTO. 

This switch will also generate labels at the last location 
allocated for a FORMAT statement so that FORDDT can detect 
the end of the statement. These labels have the form 
"format-label F". If they are generated, you will be able to 
display and modify FORMAT statements via the TYPE and ACCEPT 
commands. 

Note that the :LA3ELS switch is automatically activated with 
the :TRACE switch, since labels are needed to accomplish the 
trace features. 

3. /DEBUG:TRACE, which will generate a reference to FORDDT 
before each executable statement. This switch is required 
for the trace command NEXT to function. 

Note that if more than one FORTRAN statement has been placed 
on a single input line, only the first statement will have a 
FORDDT reference and line-number label associated with it. 
This also applies to the : LABELS switch. 

4. /DEBUG: INDEX, which will force the compiler to store in its 
respective data location as well as a register the index 
variable of all DO loops at the beginning of each loop 
iteration. You will then be able to examine DO loops by 
using FORDDT. If you modify a DO loop index using FORDDT, it 
will not affect the number of loop iterations because a 
separate loop count is used. (See Section D.1.5.) 

Note that this switch has no direct affect on any of the 
commands in FORDDT. 



E.4 LOADING AND STARTING FORDDT 



1. The simplest method of loading and starting FORDDT is with 
the following command string: 

.DEBUG filename. ext (DEBUG)/F10 
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FORDDT responds with 

ENTERING FORDDT 
>> 

The angle brackets indicate that FORDDT is ready to receive a 
command, just as an asterisk (*) signifies FORTRAN-10's 
readiness . 

The DEBUG command to the monitor will also load DDT (standard 
system debugging program). DDT can be used or ignored, but 
it does require an extra 2K (octal) of core. 

2. You may wish to load your compiled program and FORDDT 
directly with the LINK-10 loader. (Loading with LINK-10 was 
accomplished implicitly in the previous command string.) The 
command sequence is as follows: 

.R LINK 

*f ilename.ext /DEB/G (loads DDT) 

*f ilename.ext /DEB: FORDDT /G (loads FORDDT) 

FORTRA 

*f ilename.ext /DEB: (DDT, FORDDT ) /G loads both DDT 

FORTRA and FORDDT 

If the total FORTRAN program consists of many subroutines and 
insufficient core is available to complete loading with 
symbols, it is possible to load with symbols just those 
sections expected to give trouble. The remaining routines 
need not be loaded. 



E . 5 SCOPE OF NAME AND LABEL REFERENCES 

Each program unit has its own symbol table. When you initially enter 
FORDDT, you automatically open the symbol table of the main program. 
All references to names or labels via FORDDT must be made with respect 
to the currently open symbol table. If you have given the main 
program a name other than MAIN by using the PROGRAM statement (see 
Chapter 5, Section 5.2), FORDDT will ask for the defined program name. 
After you enter the program name, FORDDT will open the appropriate 
symbol table. At this point, symbol tables in programs other than the 
main program can be opened by using the OPEN command. (See Section 
F.5.) 

References to statement labels, line numbers, FORMAT statements, 
variables, and arrays must have labels that are defined in the 
currently open symbol table. However, FORDDT will accept variable and 
array references outside the currently open symbol table, providing 
the name is unique with respect to all program units in the given load 
module . 



E . 6 FORDDT COMMA NDS 

This section gives a detailed description of all commands in FORDDT. 
The commands are given in alphabetical order. 
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ACCEPT Allows you to change the contents of a FORTRAN variable, 
array, array element, array element range, or FORMAT 
statement. The command format is: 



ACCEPT name/mode value 
where 



name = the variable array, array element, array 
elenent range, or FORMAT statement to be 
modified . 

mode = the format of the data value to be entered. 
The mode keyword must be preceded by a slash 
(/) and immediately follow the name. 
Intervening blanks are not allowed. (Note 
that /mode does not apply to FORMAT 
modification . ) 

value = the new value to be assigned. The format of 
the input value must correspond to the 
specified mode. 

DATA LOCATION MODIFICATION 

Data Modes 

The following data modes are accepted: 

Mode Meaning Example 

A ASCII (left-justified) /F00/ 

C COMPLEX (1.25,-78.E+9) 

D DOUBLE-PRECISION 123.4567890 

F REAL 123.45678 

I INTEGER 1234567890 

OCTAL 76543210 

R RASCII (right-justified) \BAR\ 

S SYMBOLIC PSI(2,4) 

If not specified, the default mode is REAL. 

Two-Word Values 

For the data modes ASCII, RASCII, OCTAL, and SYMBOLIC, 
FORDDT will accept a "/LONG" modifier on the mode switch. 
This modifier indicates that the variable and the value 
are to be interpreted as two words long. 

Example 

ACCEPT VAR/RASCI I/LONG ■ 1234567890' 

will assume that VAR is two words long and store the given 
10-character literal into it. 

Initialization of Arrays 

If the name field of an ACCEPT contains an unsubscr ipted 
array name or a range of array elements, all elements of 
the array or the specified range will be set to the given 
value . 
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Example 

ACCEPT ARRAY/F 1.0 

or 
ACCEPT ARRAY (5) -ARRAY (10) /F 1.0 

Note that this applies only to modes other than ASCII and 
RASCII. 

Long Literals 

When the value field of an ACCEPT contains an 
unsubscr ipted array name or range of array elements, and 
the specified data mode is ASCII or RASCII, the value 
field is expected to contain a long literal string. 
ACCEPT will store the string linearly into the array or 
array range. If the array is not filled, the remainder of 
the array or range will be set to zero. If the literal is 
too long the remaining characters will be ignored. 

Example 

ACCEPT ARRAY/RASCII ■ ABCDEFGHI JKLMNOPQRSTUVWXYZ ' 

FORMAT STATEMENT MODIFICATION 

When the name field of an ACCEPT contains a label, FORDDT 
expects this label to be a FORMAT statement label and that 
the value field contains a new FORMAT specification. 

Example 

ACCEPT 10 (1H0, F10. 2,3(12) ) 

The new specification cannot be longer than the space 

originally allocated to the FORMAT by the compiler. The 

remainder of the area is cleared if the new specification 
is shorter . 

Note that FOROTS performs some encoding of FORMAT 
statements when it processes them for the first time. If 
any I/O statement referencing the given FORMAT has been 
executed, the FORTRAN program has to be restarted 
(re-initializing FOROTS) . 

CONTINUE Allows the program to resume execution after a FORDDT 
pause. After a CONTINUE is executed, the program either 
runs to completion or until another pause is encountered. 
The command format is: 

CONTINUE n 

where the n is optional and, if omitted, will be assumed 
to be one. If a value is provided, it may be a numeric 
constant or program variable, but it will be treated as an 
integer. When the value n is specified, the program will 
continue execution until the nth occurrence of this pause. 
For example, 

CONTINUE 20 

will continue execution after the 20th occurrence of the 
cause . 
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DDT Transfers control of the program to DDT, the standard 
system debugging program (if loaded). Any files currently 
opened by FOROTS are unaffected and return to FORDDT is 
possible so that program execution may be resumed. 

.F10 is the global symbol used to return control to 
FORDDT. The command format is: 

.F10$G 

where $ represents altmode or escape. Your program will 
be in the same condition as before unless you have 
modified your core image with DDT. 

DIMENSION Sets the user-defined dimensions of an array for FORDDT 
access purposes. These dimensions need not agree with 
those declared to the compiler in the source code. FORDDT 
will allow you to redimension an array to have a larger 
scope than that of the source program. If this is done, a 
warning is given. The command format is: 

DIMENSION S 

where S is the name of the array specified. 
For example: 

DIMENSION ALPHA(7, 5/6,10) 

FORDDT will remember the dimensions of the array until it 
is redefined or removed. 

The command 

DIMENSION 

will give a full list of all the user-defined dimensions 
for all arrays. 

DIMENSION ALPHA 

will display the current information for the array ALPHA 
only. 

DIMENSION ALPHA/REMOVE 

will remove any user defined array information for the 
array ALPHA. 

Arrays, Array Elements, and Ranges 

Array elements are specified in the following format: 

name [61/62, . . . ] (SI, . . . ) 

where 

name = the name of the array 

[...] = optional, and contains dimension information. 
This form is equivalent in effect to the 
DIMENSION statement. 
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(...) = the subscripts of 
desired . 



the specific 



element 



The entire array is referenced simply by its unsubscr ipted 
name. A range of array elements is specified by inputting 
the first and last array elements of the desired range 
separated by a dash (-) (A ( 5) -A ( 10) ) . 

DOUBLE Defines the dimensions of a double-precision array. The 
result of this command is the same as for the DIMENSION 
command except that the array so dimensioned is understood 
by FORDDT to be an array with word entries and, therefore, 
reserves twice the space. The command format is: 

DOUBLE arrayname 

GOTO Allows you to continue your program from a point other 
than the one at which it last paused. The GOTO allows you 
to continue at a statement label or code-generating source 
line number provided that the /DEBUG : LABELS switch has 
been used or the contents of a symbol previously ASSIGNed 
during the program execution. 

Note that the program must be STARTed before this command 
can be used, and also note that a GOTO is not allowed 
after the "C"C REENTER sequence. (See F.6.) 

The command format is: 

GOTO n 

GROUP Sets up a string of text for input to a TYPE command. You 
can store TYPE statements as a list of variables 
identified by the numbers 1 through 8. This feature 
eliminates the need to retype the same list of variables 
each time you wish to examine the same group. Refer to 
the TYPE command for the proper format of the list. 

The command format is: 

GROUP n list 



where 
n 



= the group number 1-! 



list = a string of TYPE statements to be called in 
future accessing of the current group number. 

GROUP 

with no arguments will cause FORDDT to type out the 
current contents of all the groups 

GROUP n 

will type out the contents of the particular group 
requested . 

Note that one group may call another. 
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LOCATE Lists the program unit names in which a given symbol is 
defined. This is useful when the variable you wish to 
locate is not in the currently open program unit and is 
defined in more than one program unit. The command format 
is : 



LOCATE n 

where n may be any FORTRAN variable, 
number, or FORMAT statement number. 



array, label, line 



MODE Defines the default formats of typeout from FORDDT. In 
initial default mode, variables will be typed in 
floating-point format. If you wish to change the typeout 
modes, the command format is: 

MODE list 

where list contains one or more of the modes in the 
following table. (Only the first character of each mode 
need be typed to identify it to FORDDT.) 



Mode 



Meaning 



F FLOATING-POINT 

D DOUBLE-PRECISION 

C COMPLEX 

I INTEGER 

OCTAL 

A ASCII (left-justified) 

R RASCII (right-justified) 

A typical command string might be: 

MODE A, I, OCTAL 

NEXT Allows you to cause FORDDT to trace source lines, 
statement labels, and entry point names during execution 
of your program. This command will only provide trace 
facilities if the program was compiled with the FORTRAN-10 
/DEBUG switch. If this switch was not used, the NEXT 
command will act as a CONTINUE command. The command 
format is: 



NEXT n/sw 



where 



n = a program variable or integer numeric value 
and 



sw 



= one of the following switches 



/S= statement label 

/L= source line 

/E= entry point 

The default starting value of n is 1, a single statement 
trace. The default switch is /L. 

The command 

NEXT 20/L 
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OPEN 



will trace the execution of the next 20 source 
numbers or until another pause is encountered. 



line 



Note that if no argument is specified, the last argument 
given will be used. For example, 

NEXT /E 

will change the tracing mode to trace only subprogram 
entries using the numeric argument previously supplied. 

Allows you to open a particular program unit of the loaded 
program so that the variables will be accessible to 
FORDDT. Any previously opened program unit is closed 
automatically when a new one is opened. Only global 
symbols, symbols in the currently open unit, and unique 
locals are available at any one time. Note that starting 
FORDDT automatically opens the MAIN program. The command 
format is: 



PAUSE 



OPEN name 

where name is the subprogram name. OPEN with no arguments 
will reopen the MAIN program. 

If the PROGRAM statement was used in the FORTRAN program, 
the name supplied by you will be requested upon entering 
FORDDT. 

Allows you to place a pause request at a statement number , 
source line number, or subroutine entry point. Up to ten 
pauses may be set at any one time. When a pause is 
encountered, execution is suspended at that point and 
control is returned to FORDDT. Also, when a pause is 
encountered, the symbol table of that subprogram is 
automatically opened. 

The command formats include: 



PAUSE 
PAUSE 
PAUSE 
PAUSE 
PAUSE 
PAUSE 



AFTER n 

IF condition 

TYPING /g 

AFTER n TYPING /g 

IF condition TYPING /g 



where 



the point where the pause is requested, 

an integer constant or variable or array 

element 

a group number 



PAUSE 100 

will set a pause at statement label 100, cause execution 
to be suspended, and cause FORDDT to be entered on 
reaching 100 in the program. 

PAUSE #245 AFTER MAX(5) 

will cause a pause to occur at source line number 245 
after encountering this point the number of times 
specified by MAX(5). Note that AFTER may not be 
abbreviated . 
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PAUSE DELTA IF LIMIT ( 3 , 1 ) . GT . 2 . 5E-3 

If the variable LIMIT(3,1) is greater than the value 
2.5E-3, the pause request will be granted. The IF may not 
be abbreviated, but all the usual FORTRAN logical 
connectives are allowed. 

PAUSE 505 TYPING /5 

will request a pause to be made at the first occurrence of 
the label 505, and the variables in group 5 will be 
displayed. The TYPING specification may not be 
abbreviated . 

PAUSE LINE#24 AFTER 16 TYPING 3 

will place a request at source line number 24 after 16 
(octal) times through; however, the contents of group 3 
will be displayed every time. 

When the TYPING option is used with the PAUSE command, 
control can be transferred to FORDDT at the next typeout 
by typing any character on the terminal. 

Note that pause requests remain after a control C REENTER 
sequence, a START command, or a control C START sequence. 

REMOVE Removes the previously requested pauses. The command 
format is: 

REMOVE P 
For example, 

REMOVE L#123 
will remove a pause at program source line number 123. 

REMOVE ALPHA 

will remove a pause at the subroutine entry to ALPHA. 

REMOVE with no arguments will remove all your pause 
requests, and, in this case, no abbreviation of REMOVE is 
allowed. This prevents the unintentional removal of 
pauses . 

START Starts your program at the normal FORTRAN main program 
entry point. The command format is: 

START 

STOP Terminates the program, requests FOROTS to close all open 
files, and causes an exit to the monitor. The usual 
command format is: 

STOP 

STOP/RETURN 

will allow a return to monitor mode without releasing 
devices or closing files so that a CONTINUE can be issued. 
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STRACE Displays a subprogram level backtrace of the current state 
of the program. The command format is: 

STRACE 



TYPE 



Causes one or more FORTRAN defined variables, arrays, or 
array elements to be displayed on your terminal. The 
command format is: 

TYPE list 



where list may be one or more variable or array references 
and/or group numbers. These specifications must be 
separated by commas, and group numbers must be preceded by 
a slash (/) . The command with no arguments will use the 
last argument list submitted to FORDDT. 

An array element range can also be specified. For 
example : 

TYPE PI (5) -PI (13) 

will display the values from PI (5) to PI (13) inclusive. 
If an unsubscr ipted array name is specified, the entire 
array will be typed. 

There are several methods of choosing the form of typeout 
in conjunction with the MODE command. 

1. If you do not specify a format, the defaultis 
floating-point form. 

2. You can specify a format via the MODE command 
described in this appendix. 

3. You can change the format previously designated 
by the MODE command by including print modifiers 
in the TYPE or GROUP string. The print modifiers 
are : 

/A,/C,/D,/F,/I,/0,/R 

The first print modifier specified in a string of 
variables determines the mode for the entire 
string unless another mode is placed directly to 
the right of a particular variable. For example, 
in 

TYPE /IK,L/0,M,N/A,/2 

the typeout mode is integer until another mode is 
specified. Therefore, 

K,M, and/2 = Integer 
L = OCTAL 
N = ASCII 



WHAT Displays the information saved by 
format is: 



FORDDT. 



The command 



WHAT 
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E . 7 ENVIRONMENT CONTROL 

If a program enters an indefinite loop, you can recover by typing a 
"C"C REENTER sequence. This action will cause FORDDT to simulate a 
pause at the point of reentry and allow you to control your run-away 
program . 

Most commands can be used once the program has been reentered; 
however, GOTO, STRACE, TYPE, and ACCEPT cause transfer of control to 
routines external to FORDDT. No guarantee can be made to ensure that 
any of these commands following a "C"C REENTER sequence will not 
destroy the user profile. The program must be returned to a stable 
state before any of these four commands can be issued. In order to 
restore program integrity, you should set a pause at the next label 
and then CONTINUE to it. If the /DEBUG:TRACE switch was used, a NEXT 
1 command can be issued to restore program integrity. 



E.8 FORTRAN- 10/OPTIMIZE SWITCH 

You should never attempt to use FORDDT with a program that has been 
compiled with the /OPTIMIZE switch. The global optimizer causes 
variables to be kept in ACs. For this reason, attempts to examine or 
modify variables in optimized programs will not work. Also, since the 
optimizer moves statements around in your program, attempts to trace 
program flow will lead to great confusion. 



E . 9 FORDDT MESSAG ES 

FORDDT responds with two levels of messages - fatal error and warning. 
Fatal error messages indicate that the processing of a given command 
has been terminated. Warning messages provide helpful information. 
The format of these messages is: 

7FDTXXX text 

or 
IFDTXXX text 

where 

? = fatal 

% =- warning 

FDT = FORDDT mnemonic 

XXX - 3-letter mnemonic for error message 

text --= explanation of error 

Square brackets ([ ]) in this section signify variables and are not 
output on the terminal. 

Fatal Errors 

The fatal errors in the following list are each preceded by ?FDT on 
the user terminal and on listings. They are listed in alphabetical 
order . 

BDF [symbol] IS UNDEFINED OR IS MULTIPLY DEFINED 

BOI BAD OCTAL OUTPUT 

An illegal character was detected in an octal input value. 
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CCN CANNOT CONTINUE 

Pause has been placed on some form of skip instruction 
causing FORDDT to loop; should never be encountered in 
FORTRAN-10 compiled programs. 

CFO CORE FILE OVERFLOW 

The storage area for GROUP text has been exhausted. 

CNU THE COMMAND [name] IS NOT UNIQUE 

More letters of the command are required to distinguish it 
from the other commands. 

CSH CANNOT START HERE 

The specified entry point is not an acceptable FORTRAN-10 
main program entry point. 

DTO DIMENSION TABLE OVERFLOW 

FORDDT does not have the space to record any more array 
dimensions until some are removed. 

FCX FORMAT CAPACITY EXCEEDED 

An attempt was made to specify a FORMAT statement requiring 
iTiore space than was originally allocated by FORTRAN-10. 

FNI FORMAL NOT INITIALIZED 

Reference to a FORMAL parameter of some subprogram that was 
never executed. 

FNR [array name] IS A FORMAL AND MAY NOT BE RE-DEFINED 

FORMAL parameters may not be DIMENSIONed. 

IAF ILLEGAL ARGUMENT FORMAT 

The parameters to the given command were not specified 
properly. Refer to the documentation for correct format. 

IAT ILLEGAL ARGUMENT TYPE = [number] 

An unrecognized subprogram argument type was detected. 
Submit an SPR if this message occurs. 

ICC COMPARE TWO CONSTANTS IS NOT ALLOWED 

Conditional test involves two constants. 
IER E (number) 

Internal FORDDT error - please report via an SPR. 
IGN INVALID GROUP NUMBER 

Group numbers must be integral and in the range 1 through 8. 
INV INVALID VALUE 

A syntax error was detected in the numeric parameter. 
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ITM ILLEGAL TYPE MODIFIER - S 

The mode S is only valid for ACCEPT statements. 

LGU [array name] LOWER SUBSCRIPT. GE . UPPER 

The lower bound of any given dimension mast be less than or 
equal to the upper bound. 

LNF [label] IS NOT A FORMAT STATEMENT 

MLD [array name] MULTI-LEVEL ARRAY DEFINITION NOT ALLOWED 

The same array cannot be dimensioned more than once (via the 
[dimensions] construct) in a single command. 

MSN MORE SUBSCRIPTS NEEDED 

The array is defined to have more dimensions than were 
specified in the given reference. 

NAL NOT ALLOWED 

An attempt has been made to modify something other than data 
or a FORMAT. 

NAR NOT AFTER A RE-ENTER 

The given command is not allowed until program integrity has 
been restored via a CONTINUE or NEXT command. 

NDT DDT NOT LOADED 

NFS CANNOT FIND FORTRAN START ADDRESS FOR [program name] 

Main program symbols are not loaded. 

NFV [symbol] IS NOT A FORTRAN VARIABLE 

Names must be 6-character alphanumeric strings beginning 
with a letter . 

NGF CANNOT GOTO A FORMAT STATEMENT 

NPH CANNOT INSERT A PAUSE HERE 

An attempt has been made to place a pause at other than an 
executable statement or subprogram entry point. 

NSP [symbol] NO SUCH PAUSE 

An attempt has been made to REMOVE a pause that was never 
set up. 

NUD [symbol] NOT A USER DEFINED ARRAY 

An attempt has been made to remove dimension information for 
an array that was never defined. 

PAR PARENTHESES REQUIRED (..) 

Parentheses are required for the specification of FORMAT 
statements and complex constants. 
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PRO TOO MANY PAUSE REQUESTS 

The PAUSE table has been exhausted. The maximum limit is 
10. 

SER SUBSCRIPT ERROR 

The subscript specified is outside the range of its defined 
dimensions . 

STL [array name] SIZE TOO LARGE 

An attempt has been made to define an array larger than 
256K. 

TMS TOO MANY SUBSCRIPTS 

The array is defined to have fewer dimensions than are 
specified in the given element reference. 

URC UNRECOGNIZED COMMAND 



Warning Messages 

Each warning message in this list is preceded by %FTN on your terminal 
and on listings. They are given here in alphabetical order. 

ABX [array name] COMPILED ARRAY BOUNDS EXCEEDED 

FORDDT has detected another symbol defined in the specified 
range of the array. Note that this will occur in certain 
EQUIVALENCE cases and can be ignored at that time. 

CHI CHARACTERS IGNORED: "[text]" 

The portion of the command string included in "text" was 
thought to be extraneous and was ignored. 

NAR [symbol] IS NOT AN ARRAY 

NSL NO SYMBOLS LOADED 

FORDDT cannot find the symbol table. 

NST NOT STARTED 

The specified command requires that a START be previously 
issued to ensure that the program is properly initialized. 

POV PROGRAM OVERLAYED 

The symbol table is different from the last time FORDDT had 
control . 

SFA SUPERSEDES F10 ARRAY 

The FORTRAN-10 generated dimension is being superseded for 
the given array. 

SPO VARIABLE IS SINGLE-PRECISION ONLY 

XPA ATTEMPT TO EXCEED PROGRAM AREA WITH [symbol name] 

An attempt has been made to access memory outside the 
currently defined program space. 
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FORTRAN-10 responds with two levels of messages - fatal error and 
warning. If a warning message is received, the compilation will 
continue, but a fatal error will stop the program from being compiled. 
The format of messages is: 

7FTNXXX LINE:n text 

or 
%FTNXXX LINE:n text 

where 

? = fatal 

% = warning 

FTN = FORTRAN mnemonic 

XXX = 3-letter mnemonic for the error message 

LINE::n = line number where error occurred 

text = explanation of error 

Square brackets ([ ]) in this appendix signify variables and are not 
output on the terminal . 

Fatal Errors 

Each fatal error in the following list is preceded by ?FTN on the user 
terminal and on listings. They are presented here in alphabetical 
order . 

ABD [symbolname] HAS ALREADY BEEN DEFINED [definition] 

The usage given conflicts with current information about the 
symbol. For example, a symbol defined in an EQUIVALENCE 
statement cannot be referenced as a subprogram name. 

ATL ARRAY [name] TOO LARGE 

The total amount of core necessary to accommodate this array 
is greater than 512P. 

AWN ARRAY REFERENCE [name] HAS WRONG NUMBER OF SUBSCRIPTS 

The array was defined to have more or fewer dimensions than 
the given reference. 

BOV STATEMENT TOO LARGE TO CLASSIFY 

To determine statement type, some portion of the statement 
must be examined by the compiler before actual semantic and 
syntactic analysis begins. During this classification the 
entire portion of the required statement must fit into the 
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internal statement buffer (large enough for a normal 20-line 
statement). This error message is issued when the portion 
of a given statement required for classification is too 
large to fit in the buffer. Once FORTRAN-10 has classified 
a statement, there is no explicit restriction on its length. 

CER COMPILER ERROR IN ROUTINE [name] 

Submit an SPR for any occurrence of this message. 

CFF CANNOT FIND FILE 

The file referenced in an INCLUDE statment was not found. 

CPE CHECKSUM OR PARITY ERROR IN [source/listing/object] FILE 
[name] 

CQL NO CLOSING QUOTE IN LITERAL 

CSF ILLEGAL STATEMENT FUNCTION REFERENCE IN CALL STATEMENT 

DDA [symbolname] IS DUPLICATE DUMMY ARGUMENT 

OFC VARIABLE DIMENSION [name] MUST BE SCALAR, DEFINED AS FORMAL 
OR IN COMMON 

DFD DOUBLE [type] NAME ILLEGAL 

Duplicate fields were encountered in an INCLUDE file 
specif icat ion . 

DIA DO INDEX VARIABLE [name] IS ALREADY ACTIVE 

In any nest of DO loops, a given index variable may not be 
defined for more than one loop. 

DID CANNOT INITIALIZE A DUMMY PARAMETER IN DATA 

DLN OPTIONAL DATA VALUE LIST NOT SUPPORTED 

The extended FORTRAN statement form that allows data values 
to be defined in type specification statements is not 
supported by FORTRAN-10. 

DNL IMPLIED DO SPECIFICATION WITHOUT ASSOCIATED LIST OF 
VARIABLES 

DPR DUMMY PARAMETER [name] REFERENCED BEFORE DEFINITION 

DSF ARGUMENT [name] IS SAME AS FUNCTION NAME 

DTI THE DIMENSIONS OF [arrayname] MUST BE OF THE TYPE INTEGER 

DVE CANNOT USE DUMMY VARIABLE IN EQUIVALENCE 

DWL [source/listing/object] DEVICE [[device]] WRITE LOCKED 

ECT ATTEMPT TO ENTER [symbolname] INTO COMMON TWICE 

EDN EXPRESSION TOO DEEPLY NESTED TO COMPILE 

EID ENTRY STATEMENT ILLEGAL INSIDE A DO LOOP 

EIM ENTRY STATEMENT ILLEGAL IN MAIN PROGRAM 
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ENF LABEL [number] MUST REFER TO AN EXECUTABLE STATEMENT, NOT A 
FORMAT 

ETF ENTER FAILURE [filename] 

EXB EQUIVALENCE EXTENDS COMMON BLOCK [name] BACKWARD 

FEE FOUND [symbol] WHEN EXPECTING EITHER [symbol] OR A [symbol] 

General syntax error message. 

FNE LABEL [number] MUST REFER TO A FORMAT, NOT AN EXECUTABLE 
STATEMENT 

FWE FOUND [symbol] WHEN EXPECTING [symbol] 

HDE HARDWARE DEVICE ERROR ON [source/listing/object] DEVICE 
[ [device] ] 

IAC ILLEGAL ASCII CHARACTER [character] IN SOURCE 

IAL INCORRECT ARGUMENT TYPE FOR LIBRARY FUNCTION [name] 

IBK ILLEGAL STATEMENT IN BLOCKDATA SUBPROGRAM 

ICL ILLEGAL CHARACTER [character] IN LABEL FIELD 

IDN DO LOOP AT LINE: [number] IS ILLEGALLY NESTED 

You are attemping to terminate a DO loop before terminating 
one or more loops defined after the given one. 

IDS IMPLICIT DO INDICES MAY NOT BE SUBSCRIPTED 

EDT ILLEGAL OR MISSPELLED DATA TYPE 

IDV IMPLIED DO INDEX IS NOT A VARIABLE 

IED INCONSISTENT EQUIVALENCE DECLARATION 

The given EQUIVALENCE declaration would cause some symbolic 
name to refer to more than one physical location. 

IFD INCLUDED FILES MUST RESIDE ON DISK 

I ID NON-INTEGER IMPLIED DO INDEX 

IIP ILLEGAL IMPLICIT SPECIFICATION PARAMETER 

IIS INCORRECT INCLUDE SWITCH 

ILF ILLEGAL STATEMENT AFTER LOGICAL IF 

Refer to Section 9.3.2 for restrictions on logical IF object 
statements . 

INN INCLUDE STATEMENTS MAY NOT BE NESTED 

IOD ILLEGAL STATEMENT USED AS OBJECT OF uO 

ISD ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT 

Subscript expressions may be formed only with implicit DO 
indices and constants combined with +, -, *, or /. 
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ISN [symbol name] IS NOT [symboltype] 

The symbol cannot be used in the attempted manner. 

IUT PROGRAM UNITS MAY NOT BE TERMINATED WITHIN INCLUDED FILES 

IVP INVALID PPN 

IXM ILLEGAL MIXED MODE ARITHMETIC 

Complex and double-precision cannot appear in the same 
expression . 

IZM ILLEGAL [datatype] SIZE MODIFIER [number] 

Refer to Section 6.3. 
LAD LABEL [number] ALREADY DEFINED AT LINE: [number] 
LED ILLEGAL LIST DIRECTED [statement type] 

LFA LABEL ARGUMENTS ILLEGAL IN FUNCTION OR ARRAY REFERENCE 
LGB LOWER BOUND GREATER THAN UPPER BOUND FOR ARRAY [name] 
LLS LABEL TOO LARGE OR TOO SMALL 

Labels cannot be or greater than 5 digits. 

LNI LIST DIRECTED I/O WITH NO I/O LIST 

LTL TOO MANY ITEMS IN LIST - REDUCE NUMBER OF ITEMS 

In rare instances, a combination of long lists in a single 
statement can exhaust the syntax stack. 

MCE MORE THAN 1 COMMON VARIABLE IN EQUIVALENCE GROUP 

MSP STATEMENT NAME MISSPELLED 

MWL ATTEMPT TO DEFINE MULTIPLE RETURN WITHOUT FORMAL LABEL 
ARGUMENTS 

NCF NOT ENOUGH CORE FOR FILE SPECS. TOTAL K NEEDED= [number] 

NEX NO EXPONENT AFTER D OR E CONSTANT 

NFS NO FILENAME SPECIFIED 

The INCLUDE statement requires a filename. 

NIO NAMELIST DIRECTED I/O WITH I/O LIST 

NGS CANNOT GET SEGMENT [name] - ERROR CODE: [number] 

Refer to Appendix E of the Monitor Calls Manual for full 
description of codes. 

NIR REPEAT COUNT MUST BE AN UNSIGNED INTEGER 

NIU NON-INTEGER UNIT IN I/O STATEMENT 

NLF WRONG NUMBER OF ARGUMENTS FOR LIBRARY FUNCTION [name] 
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NNF NO STATEMENT NUMBER CN FORMAT 

NRC STATEMENT NOT RECOGNIZED 

NUO .NOT. IS A UNARY OPERATOR 

NWD INCORRECT USE OF * OR ? IN [filename] 

OPW OPEN PARAMETER [name] IS OF WRONG TYPE 

PD6 FORTRAN WILL NOT RUN ON A FDP-6 

PIC THE DO PARAMETERS OF [index name] MUST BE INTEGER CONSTANTS 

PRF PROTECTION FAILURE [filename] 

PTL PROGRAM TOO LARGE 

The program takes up more than 512P 

QEF QUOTA EXCEEDED OR DISK FULL [filename] 

QEX BLOCK TOO LARGE OR QUOTA EXCEEDED FOR 
[source/listing/object] FILE [name] 

RDE RIB OR DIRECTORY ERROR [filename] 

RFC [function name] IS A RECURSIVE FUNCTION CALL 

RIC COMPLEX CONSTANT CANNOT BE USED TO REPRESENT THE REAL OR 
IMAGINARY PART OF A COMPLEX CONSTANT 

SAD ARRAY [name] - SIGNED DIMENSIONS MAY APPEAR ONLY AS CONSTANT 
RANGE LIMITS 

SNL [statement name] STATEMENTS MAY NOT BE LABELED 

SOR SUBSCRIPT OUT OF RANGE 

TFL TOO MANY FORMAT LABELS SPECIFIED 

TOF MORE THAN 2 OUTPUT FILES ARE NOT ALLOWED 

Only a listing and a relocatable binary file may be 
specified as output files. 

UCE USER CORE EXCEEDED 

UMP UNMATCHED PARENTHESES 

USI [symbol type] [symbol name] USED INCORRECTLY 

The given symbol cannot be used in this way. 

VNA SUBSCRIPTED VARIABLE IN EQUIVALENCE BUT NOT AN ARRAY 

VSE EQUIVALENCE SUBSCRIPTS MUST BE INTEGER CONSTANTS 

VSO VARIABLE DIMENSION ALLOWED IN SUBPROGRAMS ONLY 
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Warning Messages 

Each warning message in the following list is preceded by %FTN on the 
user terminal and on listings. They are presented here in 
alphabetical order. 

AGA OPT - OBJECT VARIABLE, OF ASSIGNED GOTO WITHOUT OPTIONAL 
LIST, WAS NEVER ASSIGNED 

CAI COMPLEX EXPRESSION USED IN ARITHMETIC If 

CTR COMPLEX TERMS USED IN A RELATIONAL OTHER THAN EQ OR NE 

The result of the other relational operators with complex 
operands is undefined. 

CUO CONSTANT UNDERFLOW OR OVERFLOW 

This message is issued when overflow or underflow is 
detected as the result of building constants or evaluating 
constant expessions at compile time. 

DIM POSSIBLE DO INDEX MODIFIED INSIDE LOOP 

A program that does this may be incorrectly compiled by the 
optimizer, since it assumes that indices are never modified. 
Note that the number of iterations is calculated at the 
beginning of the loop and is never affected by modification 
of the index within the loop. 

DIS OPT - PROGRAM IS DISCONNECTED - OPTIMIZATION DISCONTINUED 

Submit an SPR if this message occurs. 
DXB DATA STATEMENT EXCEEDS BOUNDS OF ARRAY [name] 
FMR MULTIPLE RETURNS DEFINED IN A FUNCTION 
PNA A FUNCTION WITHOUT AN ARGUMENT LIST 
ICC ILLEGAL CHARACTER, CONTINUATION FIELD OF INITIAL LINE 

Continuation lines cannot follow comment lines. 
ICD INACCESSIBLE COOS. STATEMENT DELETED 

The optimizer will delete statements that cannot be reached 
during execution. 

ICS ILLEGAL CHARACTER IN LINE SEQ# 

IDN OPT - ILLEGAL DO NESTING - OPTIMIZATION DISCONTINUED 

A GO TO within a DO loop goes to the ending statement, of an 
inner, nested DO loop. The line number printed out with the 
warning message is that of the OUTER DO. 

DO 



GO TO 
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DO 



CONTINUE 

CONTINUE 

IFL OPT - INFINITE LOOP. OPTIMIZATION DISCONTINUED 

LID IDENTIFIER [name] MORE THAN SIX CHARACTERS 

The remaining characters are ignored. 

MVC NUMBER OF VARIABLES DOES NOT EQUAL THE NUMBERS OF CONSTANTS 
IN DATA STATEMENT 

NED NO END STATEMENT IN PROGRAM 

NOD GLOBAL OPTIMIZATION NOT SUPPORTED WITH /DEBUG - /OPT IGNORED 

NOF NO OUTPUT FILES GIVEN 

PPS PROGRAM STATEMENT PARAMETERS IGNORED 

For compatibility purposes. 

RDI ATTEMPT TO REDECLARE IMPLICIT TYPE 

SOD [name] STATEMENT OUT OF ORDER 

VAI [name] ALREADY INITIALIZED 

VND FUNCTION RETURN VALUE IS NEVER DEFINED 

VNI OPT - VARIABLE [name] IS NOT INITIALIZED 

The optimizer analysis determined that the given variable 
was never initialized prior to its use in a calculation. 

WOP OPT - WARNING GIVEN IN PHASE 1. OPTIMIZED CODE MAY NOT BE 
CORRECT 

One or more of the messages issued prior to this message 
resulted from situations that violate assumptions made "by 
the optimizer and thus may cause it to generate code that 
does not execute as desired. 

XCR EXTRANEOUS CARRIAGE RETURN 

Carriage return was not immediately preceded or followed by 
a line termination character. 

ZMT SIZE MODIFIER [number] TREATED AS [data type] 

Message is issued when one of the data type size modifiers 
is used that is accepted only for compatibility. 
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Internal Compiler errors 

An internal compiler error is either an attempt by the compiler or the 
monitor to document an error inside the FORTRAN compiler. An 
occurrence of an internal compiler error signifies that something is 
wrong with the FORTRAN-10 compiler. 

Monitor-detected internal errors are of the form 

[message] AT LOCATION [address] IN PHASE [segment] 

WHILE PROCESSING STATEMENT [line-number] 
where [message] can be one of 

ILLEGAL MEMORY REFERENCE 

STACK EXHAUSTED 

MEMORY PROTECTION VIOLATION 
Compiler-detected errors are of the form 

? INTERNAL COMPILER ERROR PROCESSING STATEMENT NUMBER [line-number] 
? CALL TO [routine-name] FROM [address] 
Submit an SPR if you received an internal con. oiler error. 
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FORTRAN-10 REALTIME SOFTWARE 

This appendix explains how to use the FORTRAN-10 realtime software. 

G . 1 INTRODUCTION 

'Che FORRTF library subroutines (LOCK, RTINIT, CONECT, RTSTRT, BLKRW, 
P.TREAD, RTWRIT, STATO, STATI , RTSLP, RTWAKE , DISMIS, DISCON, UNLOCK, 
and temporary subroutine GETCOR (refer to Section G.3)) are designed 
to allow the timesharing FORTRAN user to do realtime programming. 
With these subroutines, the timesharing job can dynamically connect 
realtime devices to the priority interrupt (PI) system, respond to 
these devices at interrupt level, remove the devices from the PI 
system, and change their PI level. Use of these routines requires 
that you have realtime privileges and are able to lock your job in 
core. The privilege bits required are: 

JPORTT (BIT 13) - realtime privileges 
JPOLCK (BIT 14) - locking privileges 

The number of realtime devices that can be handled at one time is an 
assembly-time constant, RTDEVN , in the FORRTF source. The 
DIGITAL-distributed software has RTDEVN equal to 2 but it can be 
changed (up to 6) by editing the statement "RTDEVN==2" in FORRTF. MAC 
and reassembling. 

The error messages output by FORRTF can be in either full message 
format or coded format. (Refer to Table G-l.) Use of the code and 
format saves 165 words of run-time core. If core is limited, 
reassembly of FORRTF. MAC with the assembly-time constant SHORT changed 
from the DIGITAL-distributed (full format) to -1 (coded format) 
accomplishes the core saving. 

On multiprocessor systems, the realtime traps apply only to the 
processor specified by the job's CPU specification. If the 
specification indicates more than one processor, the specification is 
changed to indicate CPUO. Note that the priority interrupt channel is 
only for the indicated CPU. 
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G . 2 USING FORRTF 

Users of FORTRAN-10 realtime software must consider the following 

1. Use of core 

2. Device control in block or single mode 

3. Priority interrupt levels 

4. Masks 



G. 2.1 Core 

The job being executed must be locked in core with v the LOCK 
subroutine. Any data being read into core can only be read into the 
low segment and above the protected job data area (the first 140 
locations). The subroutine BLKRW tests the validity of the locations 
specified to receive data in block-reading to ensure that no 
overwritings occur. 

However, when in block mode, the block pointer must be reset before 
dismissing the end-of-block interrupt; otherwise, all memory could be 
overwr itten . 



G . 2 . 2 Modes 

Realtime jobs can control their devices in one of two ways: block 
mode or single mode. In block mode, an entire block of data is read 
or written before the user interrupt routine is run, whereas in single 
mode, the user interrupt program is run every time the device 
interrupts. There are two types of block mode; fast block mode and 
normal block mode. The response time to read a word of data is 6.5 
microseconds for fast mode and 14.6 microseconds for normal mode. 
(These are the times necessary to completely service the interrupts on 
a KI10 processor). In single mode, the response time measured from 
the receipt of a realtime device interrupt until the start of the user 
control program is 100 microseconds on a KI10 processor. A device in 
fast block mode requires that a PI channel be dedicated entirely to 
itself. 



G . 2 . 3 Priority Interrupt Levels 

Priority interrupt levels 1 through 6 are legal depending on the 
system configuration. The lower the number of the level, the higher 
the priority of that level. Programs that execute for a long time 
should not be put on high-priority interrupt levels, since they could 
cause other realtime programs on lower levels to lose data. 
Specification of the PI level as zero for a particular device causes 
the device to be removed from the PI system. 
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G . 2 .. 4 Mask s 

For a description of the bits included in the startmsk and intmsk 
parameters of RTSTRT and the status word in STATO and STATI , see 
Chapters 3 through 8 of the DECsysteiri-10 System Referenc e Ma nual and 
Appendix C, IN-OUT DEVICE BIT ASSIGNMENTS of that manual. 



G.3 SUBROUTINES 

Each of the 15 subroutines associated with FORTRAN-10 realtime 
software is described briefly in this section. These subroutines have 
been programmed to be compatible with programs written according to 
the RTTRP: REAL TIME TRAPPING UUO specifications, edition 4 of 
12-Feb-73. 



G . 3 . 1 LOC K 

LOCK locks the job in core and allocates and initializes the internal 
controlling tables for all realtime devices. LOCK must be called 
before any other of the realtime routines, except GETCOR (refer to 
Section G.3. 15), and must be called exactly once. 

CALL LOCK 



G . 3 . 2 RTINIT 

RTINIT initializes the internal tables controlling a realtime device. 
RTINIT must be called for each individual device being used. 

CALL RTINIT (unit, dev, pi, trpadr, intmsk) 

unit - realtime device unit number (any number from 1 to 
RTDEVN) 

This number is not connected in any way with the 
FORTRAN logical unit number. 

dev - device code for the realtime device (see Appendix 
A, DEVICE MNEMONICS in the DECsystem-10 System 
Reference Manual DEC-10-XSRMA-A-D) . 

pi - priority interrupt level on which the realtime 
device is to be run. 

Each individual device in fast block mode must 
have a level dedicated to itself. If the level is 
equal to zero, the device will be removed from the 
priority interrupt system altogether. If it is 
necessary to connect one device to several levels 
simultaneously, a negative value for pi tells the 
system not to remove any other occurrences of the 
device from any other (or the same) PI level. 
(Note that this counts as another realtime 
device . ) 
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trpadr - address of a FORTRAN entry to which realtime 
interrupts are to trap. This can be a FUNCTION or 
SUBROUTINE subprogram. Any variables that must be 
shared between the user level code and the 
interrupt level routine must be passed by means of 
COMMON. Passing them as parameters causes 
disastrous results. 

intmsk - mask of all interrupting flags for the realtime 
device. This is actually set up by RTSTKT and 
should be zero whenever the realtime device is 
inactive, i.e., in a call to RTINIT, except in the 
case of fast block mode. In fast block mode, 
intmsk must be set to -1. 



G . 3 . 3 CONECT 

CONECT tells the system to connect a realtime device to the proper PI 
level and sets up several elements of the device controlling tables. 
Every device must be CONECTed . 

CALL CONECT (unit, mode) 

unit - realtime device unit number (see RTINIT) 

mode - -2, write a block of data, fast node; then 
interrupt . 

-1, write a block of data, normal mode; then 
interrupt . 

0, interrupt every word 

+1, read a block of data, normal mode; then 
interrupt . 

+2, read a block of data, fast mode; then 
interrupt . 



G.3.4 RTSTRT 

RTSTRT can be used to start a realtime device as well as to stop it 
and zero its interrupt mask. A device must be started to be used and 
should be stopped before it is disconnected. 

CALL RTSTRT (unit, startmsk, intmsk) 

unit - realtime device unit number (see RTINIT) 

startmsk - flags necessary to start the device (see the 

System Reference Manual , Appendix C) . If the 

device is being stopped, this parameter should be 
zero . 

intmsk - mask of all interrupting bits for the particular 
device (see the System Reference Manual Appendix 
C) . If the device is In fast block mode and being 
started, intmsk should equal -1; if, however, the 
device in any mode is being stopped, the parameter 
must be 0. 
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G . 3 • 5 BL KRW 

BLKRW is jsg'.I with either of the block modes. It sets up the size and 
starting address of the data block being handled. A new count and 
starting address must be set up each time the current one runs out. 

CALL BLKRW (unit, count, blkadr) 

unit - realtime device unit number 

count - number of words to be read or written 

blkadr - array into which the data is to be written or from 
which it is to be read. 



G . 3 . 6 RTREAD 

RTREAD, used with a device in single mode, reads from the device a 
single word of data. 

CALL RTREAD (unit, datadr) 

unit - realtime device unit number (see RTINIT) 

datadr - address of where to store the data read 



G.3.7 RTWRIT 



RTWRIT sends a single word of data to a realtime device in single 
mode . 

CALL RTWRIT (unit, datadr) 

unit - realtime device unit number (see RTINIT) 

datadr - location of the data word to be sent to the device 

G . 3 . 8 STATO 

STATO sends the specified status word to the status register of a 
realtime device. (See Appendix C, In-Out Device Bit Assignments, in 
the DECsystem-10 System Reference Manual , DEC-10-XSRMA-A-D. ) 

CALL STATO (unit, statadr) 

unit - realtime device unit number (see RTINIT) 

statadr - location of the word of status bits to be sent to 
the realtime device 

G . 3 • 9 STAT I 

STATI reads the current device status bits into the location specified 
fr inspection by the FORTRAN program. (See Appendix C, "In-Out Device 
Bit Assignments" , in the DECsystem-10 System Reference Manual , 
DEC-10-XSRMA-A-D. ) 
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CALL STAT I (unit, adr) 

unit - realtime device unit number (see PTINIT) 

adr - location into which the device status bits are to 
be read. 



G . 3 . 1 RTSLP 

RTSLP is called from the timesharing level and causes the FORTRAN job 
to sleep until RTWAKE is called from interrupt level. The program 
goes to sleep for the specified number of seconds (up to 60). When it 
wakes up, it checks to see if RTWAKE has been called from interrupt 
level. If RTWAKE has been called, RTSLP returns to the calling 
program, otherwise the job goes back to sleep again. 

CALL RTSLP (time) 

tins - length of sleep time in seconds 



G . 3 . 1 1 RTWAKE 

RTWAKE is called at interrupt level to wake up the FORTRAN program. 
CALL RTWAKE 

G.3.12 DISMIS 



DISMIS dismisses the interrupt currently being processed. The user 
interrupt must be sure to dismiss the interrupt that causes its 
execution to begin. 

CALL DISMIS 



G.3. 13 DISCON 

DISCON disconnects a realtime device from its PI level. All devices 
should be disconnected through calls to DISCON before the job is 
terminated . 

CALL DISCON (unit) 

unit - realtime device unit number (see RTINIT) 



G.3. 14 UNLOCK 

UNLOCK unlocks the job from core. When execution of a job is 
complete, the job is automatically unlocked before the return to the 
monitor. The UNLOCK subroutine provides a method to unlock a job 
before execution is complete. Note that all realtime device handling 
must be finished before the job is unlocked. 

CALL UNLOCK 
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G . 3 .. 1 5 GE TCOR, A Temporar y Subro uti ne 

GETCOR is a routine that allocates a specified amount of core for 
FOROTS use. The design of FOROTS does not allow FORTRAN jobs to be 
locked in core due to its run-time core needs. Thus, you must 
allocate an amount of core sufficient to satisfy FOROTS for running 
the particular program being executed through a GETCOR call. The 
GETCOR call must precede the LOCK call (see G.3.2). Unfortunately, 
the only way to determine the core required for each program is by 
running the job with ever- increasing arguments to GETCOR. If the 
argument is too small, the following error message appears: 

7FRSSYS USER PROGRAM REQUESTED MORE CORE THAN IS AVAILABLE 

CALL GETCOR (wds) 

wds - number of words of storage to be allocated 

Table G-l 
Error Messages 
Code Format and Full Message Format 



Subroutine in 
which message 
Code Format Full Message Format occurs 



7ILLEGAL UNIT NUMBER. 
TO HANDLE MORE DEVICES, 
REASSEMBLE FORRTF WITH A 

LARGER "RTDEVN" 

A 7ERR0R COMES FROM THE 

SUBROUTINE "subroutine name" 

7RTINIT MUST BE CALLED BEFORE CONECT 
CONECT 

7CONECT MUST BE CALLED BEFORE RTSTRT,BLKRw 
RTSTRT OR BLKRW 

7REAL TIME BLOCK OUT OF BOUNDS 
A 7END OF BLOCK TOO HIGH BLKRW 

[i.e., overwrites some program 

or in high segment] 
B 7END OF BLOCK TOO LOW, 

i.e., start address less 

than 140 

7JOB CANNOT BE LOCKED IN LOCK 

CORE 
A 7JOB NOT PRIVILEGED 
B 7NOT ENOUGH CORE AVAILABLE 

FOR LOCKING 

7APR ERROR AT INTERRUPT 

LEVEL 
A 7PDL OVERFLOW 
B 7 ILLEGAL 

MEMORY 

REFERENCE 
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Table G-l (Cont.) 
Error Messages 
Code Format and Full Messaqe Fornoat 









Subroutine in 








which message 


Code Format 




Full Message Format 


occurs 


7 




PRTTRP ERROR 

realtime trap error of the 

following sort 






A 


PILLEGAL PI NUMBER 

PI channel not available 






B 


?TRAP ADDRESS OUT OF BOUNDS 






C 


7SYSTEM LIMIT FOR UE4LTIME 
DEVICES EXCEEDED 






D 


?JOB NOT LOCKED IN CORE OR NOT 
PRIVILEGED 






E 


PDEVICE ALREADY IN USE BY 
ANOTHER JOB 









70CCURRED IN THE DISCON 
ROUTINE 


DISCON 




1 


70CCURRED IN THE CONECT 
ROUTINE 


CONECT 


8 


A 


?NOT ENOUGH CORE AVAILABLE 








FOR THE CONTROL BLOCKS 


LOCK 




B 


?NOT ENOUGH CORE AVAILABLE 








FOR THE GETCOR ROUTINE 


GETCOR 






PFRSSYS USER PROGRAM REQUESTED 


GETCOR 






MORE CORE THAN IS AVAILABLE 
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FOROTS ERROR MESSAGES 



Errors detected at run-time by FOROTS fall into the following 
categor ies : 

1. system errors (SYS) - errors internal to FOROTS 

2. open erros (OPN) - I/O errors that occur during file OPEN and 
CLOSE 

3. arithmetic fault errors (APR) - errors in numeric 
calculations 

4. library errors (LIB) - errors generated by FORLIB library 

routines 

5. data errors (DAT) - errors in data conversion on I/O 

6. device errors (DEV) - I/O hardware errors 

APR and LIB errors are usually reported as warnings and the . program 
continues. The number of APR and LIB errors listed on the user's 
terminal can be changed by the FORTRAN Library Subroutine ERRSET. See 
Table 15-3 for details. The I/O errors (SYS, OPN, DAT, and DEV) 
either cause messages to be printed on the terminal or can be trapped 
by an error exit argument (ERR=statement label) on OPEN, READ, WRITE, 
and CLOSE. 

Table H-l (jives the text of the messages which can be printed for SYS, 
OPN, DAT, and DEV errors. The included footnotes give additional 
information. Table II — 2 gives the text of the messages which can be 
printed for APR and LIB errors. 

The FORTRAN Library Subroutine ERRSNS allows you to find out which I/O 
error occurred. When called, ERRSNS returns one or two integer values 
that, describe the status of the last I/O operation performed by 
FOROTS. (The second integer value is optional.) 

CALL ERRSNS (I, J) 

calls this subroutine. J is the second, optional integer value. 
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FOROTS ERROR MESSAGES 



Table H-l 
FOROTS I/O Error Messages and ERRSNS Returned Values 



First 


Second 


Explanation 


Value 


Value 









No error detected 







Satisfactory completion (no error detected) 




101 


Normal end of job (1) 


1 




Invalid error call 




243 


Unidentified entry in FORERR (3) 




246 


Unidentified entry in FORERR (3) 


23 




Backspace error 




312 


BACKSPACE illegal for device (9) 


24 




End-of-file during READ 




308 


Attempt to READ beyond valid input (8) 


25 




Invalid record number 




302 


LSCW illegal in binary record or reading 
ASCII; or attempt to read unwritten ASCII 
RANDOM ACCESS record or unwritten or 
destroyed record number 


26 




Direct access not specified 




311 


Cannot RANDOM ACCESS a SEQUENIAL file 


28 




CLOSE error 




252 


DTA directory is full (2) or protection 
error 




254 


Rename file already exists (2) 




262 


No room or quota exceeded (2) 




268 


Cannot delete or rename a non-empty 
directory (2) 


29 




No such file 




250 


File was not found 


30 




OPEN failure 




237 


DUMP mode RANDOM or APPEND access not 
implemented; try IMAGE MODE 




238 


DIALOG file cannot be opened (3) 




240 


Record length missing for RANDOM ACCESS 




242 


Too many devices open: fifteen maximum 




245 


Device not available (2) 




248 


Illegal ACCESS for device (2) 




249 


Illegal MODE or MODE switch (2) 




251 


No directory for project, programmer 
number (2) 




253 


File was being modified (2) 


1. Not currently implemented. 


2. OPEN errors 251 through 276 map directly onto error numbers 


returned by the OPEN UUO; see Appendix E, "Error Codes", in Software 


Notebook 4, "DEC-10 Monitor Calls". 


3. Error cannot currently occur. 


8. Occurs when simulating mag tape output; SKIP RECORD and SKIP FILE 


are illegal. Also occurs when a non-existent file is opened in MODE= 


SEQINOUT and the first operation on that file is a READ. 


9. Occurs if OPEN output with BACKSPACE is not a mag tape or disk. 
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FOROTS ERROR MESSAGES 



Table H-l (Cont.) 
FOROTS I/O Error Messages and ERRSNS Returned Values 





First 


Second 


Explanation 




Value 


Value 








255 


Illegal sequence of Monitor Calls (11) 






256 


Bad UFD or bad RIB (2) 






259 


Device not available (2) 






265 


Partial allocation only (2) 






266 


Block not free on allocation (2) 






267 


Cannot supersede an existing directory (2) 






269 


SFD not found (2) 






270 


Search list empty (2) 






271 


SFD nested too deeply (2) 






272 


No CREATE flag for specified UFD (2) 






274 


File cannot be updated (2) 






277 


LOOKUP ENTER or RENAME error (2) 




31 




Mixed access modes 






315 


Cannot do SEQUENTIAL ACCESS on a RANDOM 
file 




3 2 




Invalid logical unit number 






239 


Illegal FORTRAN unit number (2) 




39 




Error during READ 






310 


REREAD before first READ is illegal (1) 




4 2 




Device handler not resident 






244 


No such device (2) 






260 


No such device (2) 




45 




OPEN statement keyword error 






241 


Switch error during DIALOG or OPEN 
statement scan (2) 




47 




Write on read-only file 






263 


Write-lock error (2) 




59 




List-directed I/O syntax error 






313 


Illegal delimiter in LIST DIRECTED input 




62 




Syntax error in FORMAT 






301 


Illegal character in FORMAT statement (4) 






306 


I/O list without data conversion in FORMAT 






314 


Missing width field for A or R on input 




63 




Output conversion error 






305 


Optional * fill: unidentified entry in 
FORERR (7) 


1. 


Not currenl 


:ly impleme 


nted . 


2. 


OPEN errors 


3 251 through 276 map directly onto error numbers 


re 


turned by i 


:he OPEN Ul 


10; see Appendix E, "Error Codes", in Software 


Notebook 4, "I 


3EC--10 Moni 


tor Calls". 


4. 


In runtime 


FORMAT. 




7. 


* fill conl 


:rolled by 


compile-time variable ASTFIL. 


11 


. Can occur 


on OPEN (MODE= 'APPEND 1 ) when file is found in LIB: or 


on 


[1,4] wh€ 


?n device s 


pecified was SYS: and /NEW was in your search 


li 


3t. 
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FOROTS ERROR MESSAGES 



Table H-l (Cont.) 
FOROTS I/O Error Messages and ERRSNS Returned Values 



First 
Value 



64 

67 
81 

699 



799 
899 



999 



Second 
Value 



303 
307 

304 

102 
261 

247 
257 
258 
264 
273 
275 
276 

309 

400 
401 
402 
403 



404 
407 

100 
103 
104 
105 

106 



Explanation 



Input conversi 
Checksum error 
Illegal charac 
Record too sma 
I/O list great 
Invalid argume 
Argument block 
Argument block 
Unclassif iable 
FOROTS system 
FOROTS system 
FOROTS system 
Not enough iron 
FOROTS system 
FOROTS system 
FOROTS system 
Unclassif iable 
Variable canno 
Unclassif iable 
Write protecte 
Device error 
Parity error 
Block too larg 
structure ful 
Spooled CDR fi 
End-of-file (1 
End-of -tape 
Unclassified s 
FOROTS system 
Monitor not bu 
Fatal error 
User program h 
is available 
Run time memor 



on error 

reading binary records (5) 
ter in data 
11 for I/O list 
er than record size (6) 
nt 

not in correct format 

not in correct format (2) 

error on OPEN 
error (2,3) 
error ( 2) 
error (2) 

itor table space (2) 
error ( 2) 
error ( 2) 
error (2) 

data error 
t be found in NAMELIST block 

device errors 
d 



e, quota exceeded, or file 
1. Nonexistent CDR reader, 
le does not exist. 
0) 

ystem error 

error 

ild to support FOROTS 

as requested more code than 

y management error 



2. OPEN errors 251 through 276 map directly onto error numbers 
returned by the OPEN UUO; see Appendix E, "Error Codes", in Software 
Notebook 4, "DEC-10 Monitor Calls". 

3. Error cannot currently occur. 

5. Checksumming controlled by compile-time variable CHKSUM. 

6. Occurs when a type 2 LSCW is found in a FORSE binary record. 
10. Trappable if there is no END= clause. 
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FOROTS ERROR MESSAGES 



Table H-2 
FOROTS Arithmetic and Library Error Messages 



APR 



Integer Overflow 
Integer Divide Check 
Illegal APR Trap 
Floating Divide Check 
Floating Underflow 



LIB 



Attempt to take DLOG of Negative Arg . 
Attempt to take DSQRT of Negative Arg 
ACOS of Arg. > 1.0 in Magnitude 
ASIN of Arg. > 1.0 in Magnitude 
Attempt to take SQRT of Negative Arg. 
Attempt to take LOG of Negative Arg. 
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INDEX 



A format descriptor, 13-12 
ACCEPT, INTRO-5-2 
ACCEPT statement, 10-18 
ACCEPT transfer, 

formatted, 10-18 

into FORMAT statement, 10-19 
Account number, INTRO-5-2 
ACCESS in file control 

statement, 12-3 
Accumulator usage, C-10 
Accuracy of double- 
precision numbers, C-l 
ACOS function, 15-11 
Addition, 4-1 

Adjustable dimensions, 6-2 
ALL with DEBUG, B-3 
Allocation, 

register, C-7 
ALOG function, 15-10 
ALOG10 function, 15-10 
Alphanumeric data transfer, 

13-12 
Alphanumeric FORMAT field 

descriptor, 13-11 
.AND., 4-5 
ANSI standard, 1-1 
APPEND with ACCESS, 12-4 
Argument , 

subprogram, 15-1 
Argument type , 

COBOL/FORTRAN, C-l 2 
Arithmetic , 

mixed-mode, 4-2 
Arithmetic assignment 

statement, 8-1 
Arithmetic expression, 4-1 
Arithmetic IF statement, 9-3 
Arithmetic operator, 4-1 
Array, 3-7 

dimensioning, 3-9, C-4 
Array elements, 

storage of, 3-10 
Array subscript, 3-8 
ASCII with MODE, 12-4 
ASCIZ string, C-14 
ASIN function, 15-11 
ASSIGN statement, 8-4 
Assigned GOTO statement, 9-2 
Assignment statement, 

arithmetic, 8-1 

label, 8-4 

logical, 8-4 

mixed-mode, 8-1 
ASSOCIATE VARIABLE in file 

control statement, 12-8 
ATTACH, INTRO-7-3 
ATAN function, 15-11 
ATAN2 function, 15-11 
AXIS subroutine, 15-19 



BACKFILE statement, 14-3 
BACKSPACE statement, 14-2 
BASIC, 

input from, 2-6 
Basic external function 

subprogram, 15-8 
Beginning a job, INTRO-1-1 
BINARY with MODE, 12-4 
Blank line, 2-6 
BLOCK DATA statement, 16-1 
BLOCK SIZE in file control 

statement, 12-8 
Block data subprogram, 16-1 
BOUNDS with DEBUG, B-3 
BUFFER COUNT in file control 

statement, 12-8 



\C, INTRO-1-1 

+C monitor call, INTRO-3-3 

Call, 

FUNCTION, 15-16 

subroutine, 15-13 
CALL statement, 15-13 
Carriage control character, 

13-16 
Carriage return key, INTRO-1-2 
Category, 

statement, 1-1 
CCOS function, 15-11 
CEXP function, 15-10 
Changing a line, INTRO-3-4 
Changing a program, INTRO-4-1 
Changing line numbers, INTRO-4-5 
Character code, A-l 
Character set, 2-1 
Character set with MODE, 12-4 
Characters , 

line formatting, 2-2 

line termination, 2-2 
CLOG function, 15-10 
CLOSE, INTRO-5-4 
CLOSE statement, 12-1 
CLOSE statement summary, 12-10 
CONFIRM, INTRO-7-1 
COBOL-10, 

interaction with, C-18 
COBOL/FORTRAN argument type, 

C-12 
Command , 

COMPILE, B-4 

DEBUG, B-4 

EXECUTE, B-4 

LOAD, B-4 
Comment line, 2-5 
Common block name, 6-5 
COMMON statement, 6-5 
COMPIL in FOROTS, D-2 



Index- 1 



INDEX (CONT.) 



Compilation control statement, 

5-1 
COMPILE command, B-4 
Compiler commands, B-4 
Compiler generated variable, 

B-6 
Compiler switches, B-l 
Compiler version, B-8 
Complex constant, 3-3 
Complex format, 13-4 
COMPLEX statement, 6-3 
Computation, 

redundant, C-5 

reordering, C-3 
Computation in DO-loop, 

constant, C-6 
Computed GOTO statement, 9-2 
CONJG function, 15-12 
Constant, 3-1 

complex, 3-3 

double-precision, 3-3 

integer, 3-2 

label, 3-6 

literal, 3-5 

logical, 3-5 

octal, 3-4 

real, 3-2 
Constant computation in 

DO-loop, C-6 
Constant folding, C-7 
Constant propagation, C-7 
Continuation field, 

line, 2-3 
Continuation line, 2-4 
Continue (G) option after 

PAUSE, 9-11 
CONTINUE statement, 9-10 
Control statement, 9-1 

compilation, 5-1 
Control Z, 2-1 
COS function, 15-11 
COSD function, 15-11 
COSH function, 15-11 
<CR>, INTRO-1-2 
CROSSREF switch, B-2 
CSIN function, 15-11 
CSQRT function, 15-10 



D, INTRO-4-3 

D (double-precision notation) , 

3-3 
D format descriptor, 13-4 
.DAT extension, 12-5 
Data, 

input/output, INTRO-5-1 
Data file, INTRO-5-3 
Data files, 

FOROTS, D-4 



DATA statement, 7-1 

Data transfer operations, 

10-1 
Data type, 3-1 
DATAN function, 15-11 
DATAN2 function, 15-12 
DATE subroutine, 15-19 
DCOS function, 15-11 
DEBUG command, B-4 
Debug line, 2-6 
DEBUG switch, B-2, B-3 
Debugger, 

FORDDT, E-l 
Debugger code size, B-4 
DECODE statement, 10-22 
DEFAULT, B-l 5 
DEFINE FILE subroutine, 

15-17 
DELETE, INTRO-4-3, INTRO-6-2 
DELETE with DISPOSE, 12-5 
Deleting a file, INTRO-6-2 
Deletinq a line, INTRO-4-3 
DENSITY in file control 

statement, 12-9 
Descriptor, 

G format, 13-7 
Device control statement, 

14-1 
Device control statement 

summary, 14-3 
DEVICE in file control state- 
ment, 12-2 
Device number, 

logical, 10-3 
DEXP function, 15-10 
DIALOG in file control 

statement, 12-9 
DIMENSION statement, 6-1 
Dimensioning , 

array in COMMON, 6-7 
Dimensioning array, 3-9, C-4 
Dimensions , 

adjustable, 6-2 
DIMENSIONS with DEBUG, B-3 
DIR, INTRO-6-1 
Directory, 

sub-file, 12-6 

user file, 12-6 
DIRECTORY, 

in file control statement, 
12-6 
Directory file, INTRO-6-1 
DISPOSE in file control 

statement, 12-5 
Division, 4-1 
DLOG function, 15-10 
DLOG10 function, 15-10 
DO statement, 9-5 
DO-loop, 

constant computation in, C-6 



Index-2 
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DO- loop (Cont. ) , 

execution, 9-6 

extended range, 9-8 

floating-point, C-2 

implied in I/O list, 10-5 

nested, 9-6 

parameters, 9-6 

permitted transfers, 9-9 

range, 9-5 
DO-loop iteration, C-2 
DO-loop replacement, C-8 
DOUBLE PRECISION statement, 

6-3 
Double-precision constant, 

3-3 
Double-precision format, 

13-4 
Double-precision numbers, 

accuracy of, C-l 

range of, C-l 
DSIN function, 15-11 
DSQRT function, 15-10 
Dummy argument , 

subprogram, 15-1 
DUMP subroutine, 15-20 
DUMP with MODE, 12-4 



E, INTRO-2-2, INTRO- 
E (exponential notat 

3-2 
E format descriptor, 
EDIT, INTRO-4-1 
Editing source files 
ENCODE statement, 10 
END, INTRO -4-5 
END argument in I/O 

10-10 
END FILE statement, 
END statement, 5-2, 
Ending source input, 
ENTER in FOROTS, C-l 
Entering a program, 
ENTRY statement, 15- 
EQ, INTRO-4-5 
• EQ., 4-7 

EQUIVALENCE statemen 
.EQV. , 4-5 
ERR argument in I/O 

10-10 
ERR in file control 

12-10 
Error, 

fatal, B--17 
Error processing, 

FOROTS, D-3 
Error reporting, B-l 
ERRSET subroutine, 1 
ERRSNS subroutine, 1 
ESCAPE, INTRO-2-2 



4-5 
ion) , 

13-4 

, INTRO-4-1 
-22 

statement , 

14-2 
15-7 

INTRO-2-2 
8 

INTRO-2-1 
17 



t, 6-7 

statement, 

statement, 



7 

5-21 

5-21 



Evaluation of expression, 

4-9 
EVEN with PARITY, 12-9 
EX, INTRO-3-1 
Examples, 

SOS, INTRO-8-1 
Executable statement, 1-1 
EXECUTE, INTRO-3-1 
EXECUTE command, B-4 
Execution, 

interrupting, INTRO-3-3 
Execution on non-DEC 

machines, C-l 
Exit (X) option after PAUSE, 

9-11 
EXIT subroutine, 15-21 
EXP function, 15-10 
EXPAND switch, B-2 
Exponential notation, 3-2 
Exponentiation, 4-1 

permitted, 4-4 
Expression, 

arithmetic, 4-1 

evaluation of, 4-9 

logical, 4-4 

mixed-mode, 4-10, 4-11 

nested, 4-9 

relational, 4-7 
Extension, 

.SHR, B-18 
External function subprogram, 
15-7 

basic, 15-8 
EXTERNAL statement, 6-8 



F format descriptor, 13-4 
F40 compiled programs, C-18 
.FALSE. , 3-5 
Fatal error, B-17 
Field, 

label, 2-3 

line continuation, 2-3 

remarks, 2-4 

statement, 2-3 
Field descriptor, 

alphanumeric FORMAT, 13-11 

FORMAT, 13-2 

logical FORMAT, 13-10 

numeric FORMAT, 13-4 
FILE, INTRO-2-1 
File, 

.FOR, INTRO-2-1 

•REL, INTRO- 7-1 

data, INTRO-5-3 

deleting a, INTRO-6-2 

directory, INTRO-6-1 

directory subfile, 12-6 

editing, INTRO-4-1 
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File (Cont. ) , 

FOROTS data, D-4 

non-FORTRAN-10, C-9 

renaming a, INTRO-6-2 

source, INTRO-2-1 
File control statement, 12-1 
File directory, 

user, 12-6 
FILE in file control 

statement, 12-5 
FILE SIZE in file control 

statement, 12-8 
FIND statement, 10-21 
Floating-point DO-loop, C-2 
Folding , 

constant, C-7 
.FOR extension, INTRO-2-1 
FORDDT debugger, E-l 
FORDDT messages, E-17 
FORMAT field descriptor, 

alphanumeric, 13-11 

logical, 13-10 

numeric, 13-4 

record formatting, 13-15 
FORMAT statement, 13-1 

ACCEPT transfer into, 10-19 

transfer into, 10-3 
FORMAT statement descriptor, 

13-2 
Formatted ACCEPT transfer, 

10-18 
Formatted READ transfer, 

random access, 10-13 

sequential, 10-11 
Formatted WRITE transfer, 

random access, 10-17 

sequential, 10-16 
FOROTS, 

using, D-13 
FOROTS data files, D-4 
FOROTS error processing, D-3 
FOROTS features, D-2 
FOROTS hardware requirements, 

D-l 
FOROTS input/output 

facility, D-3 
FOROTS messages, H-l 
FOROTS software requirements, 

D-l 
FOROTS/FORSE compatibility, 

C-21 
FOROTS/LINK interface, D-28 
FORSE/FOROTS compatibility, 

C-21 
FORTRAN-10 compiler, B-l 
FORTRAN-10 messages, F-l 
FUNCTION call, 15-16 
Function references, 

order, C-8 
FUNCTION statement, 15-7 



Function subprogram, 

basic external, 15-8 

external, 15-7 

intrinsic, 15-3 

statement, 15-3 
Function subprogram structure, 

15-7 
FUNCTION type, 15-7 



G (option after PAUSE) , 9-11 
G format descriptor, 13-4, 

13-7 
.GE., 4-7 
General (G) numeric format, 

13-7 
GETOVL in LINK, C-20 
Global optimization, C-4 
GOTO statement, 9-1 

assigned, 9-2 

computed, 9-2 

unconditional, 9-1 
GRIPE, INTRO-6-3 
.GT., 4-7 



H (literal notation) , 3-5 
H format descriptor, 13-12 
Hardware requirements, 

FOROTS, D-l 
Hierarchy of operators, 4-9 
Hollerith literal, 3-5 



I, INTRO- 4-1 

I format descriptor, 13-4 

I/O list, 10-5 

IF statement, 9-3 

arithmetic, 9-3 

logical, 9-4 
ILL subroutine, 15-21 
IMAGE with MODE, 12-4 
IMPLICIT statement, 6-5 
In I/O list DO-loop, 

implied, 10-6 
Inaccessible code, C-7 
INCLUDE statement, 5-1 
INCLUDE switch, B-2 
INDEX with DEBUG, B-3 
INIOVL in LINK, C-20 
Initial line, 2-4 
INPUT, INTRO-2-1 
Input, 

line-sequence, 2-6 
Input from BASIC, 2-6 
Input from LINED, 2-6 
Input/output data, INTRO-5-1 
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Input/output facility, 
FOROTS, D-3 

Input/output list, 10-2 
NAMELIST, 10-10 

Input/output optimization, 
C-8 

Input/output statement, 10-1 
list-directed, 10-8 

Input/output statement 
format, 10-2 

Input/output statement 
summary, 10-24 

INSERT, INTRO- 4-1 

Inserting a line, IN'I'RO-4-1 

Integer constant, 3-2 

Integer format, 13-4 

INTEGER statement, 6-3 

Intrinsic function sub- 
program, 15-3 

Iteration, 

DO-loop, C-2 

Interrupting execution, 
INTRO- 3-3 



Job, 

beginning a, INTRO-1-1 

disconnected (attach) , 

INTRO- 7-3 

killing a, INTRO-7-1 

number forgotton, INTRO-7-4 

JOB number, INTRO-1-2 



K (kill file), INTRO-7-1 

KA10 switch, B-2 

Keyword, 1-1 

K/F fast logout, INTRO-7-2 

KI10 switch, B-2 

Killing a job, INTRO-7-1 

KJOB, INTRO-7-1 



L format descriptor, 13-10 

Label assignment statement, 8-4 

Label constant, 3-6 

Label field, 2-3 

LABELS with DEBUG, B-3 

.LE., 4-7 

LEGAL subroutine, 15-21 

Line , 

blank, 2-6 

comment, 2-5 

continuation, 2-4 

debug, 2-6 

definition, 2-2 

fields, 2-2 



Line (Cont . ) , 
initial, 2-4 
multi-statement, 2-5 
Line continuation field, 

2-3 
Line formatting characters, 

2-2 
Line sequence number, B-5 
LINE subroutine, 15-21 
LINE terminal setting, 

INTRO-1-1 
Line termination characters, 

2-2 
Line types, 2-4 
Line-sequence input, 2-6 
LINED, 

input from, 2-6 
LINK-10 overlay facility, 

C-20 
LINK/FOROTS interface, D-28 
List, 

input/output, 10-2 
NAMELIST input/output, 10-10 
LIST with DISPOSE, 12-5 
List-directed input/output 

statement, 10-8 
List-directed transfer, 
sequential READ, 10-12 
sequential WRITE, 10-17 
Listing, 

program, B-5 
Literal constant, 3-5 
Literal format conversion, 

13-13 
LNMAP switch, B-2 
LOAD command, B-4 
Location in object program, 

B-5 
Logging in, INTRO-1-1 
LOGIN, INTRO-1-2 
Logical assignment statement, 

8-4 
Logical constant, 3-5 
Logical expression, 4-4 
Logical FORMAT field 

descriptor, 13-10 
Logical IF statement, 9-4 
Logical operator, 4-5 
LOGICAL statement, 6-3 
Logical unit number, 10-3 
LOGOVL in LINK, C-2 
.LT., 4-7 



MACRO in listing, B-5 
MACRO-10 libraries, C-14 
MACROCODE switch, B-2 
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Messages , 

FORDDT, E-17 

FOROTS, H-l 

FORTRAN-10, F-l 

realtime, G-7 
Mixed-mode arithmetic, 4-2 
Mixed-mode assignment 

statement, 8-1 
Mixed-mode expression, 4-10, 

4-11 
MKTBL subroutine, 15-22 
MODE in file control 

statement, 12-4 
MONITOR, INTRO-1-2 
Monitor, 

calling the, INTRO-3-3 
Multi-statement line, 2-5 
Multiple record transfer, 

13-14 
Multiplication, 4-1 



N, INTRO--4-5 
Name , 

symbolic, 3-6 
NAMELIST input/output list, 

10-10 
NAMELIST statement, 11-1 
NAMELIST-controlled transfer, 

input, 11-2 

output, 11-3 

sequential READ, 10-13 

sequential WRITE, 10-17 
• NE., 4-7 

Nested DO-loop, 9-6 
Nested expression, 4-9 
NOERRS switch, B-2 
NONE with DEBUG, B-3 
Nonexecutable statement, 1-1 
Non-FORTRAN-10 files, C-9 
Non-FORTRAN-10 programs, C-9 
NONSHAR, B-18 
.NOT., 4-5 

NOWARNINGS switch, B-2 
NUMBER, INTRO-4-5 
NUMBER subroutine, 15-22 
Numeric , 

field width variable, 13-10 
Numeric format, 

general (G) , 13-7 
Numeric FORMAT field 
descriptor, 13-4 



tO, INTRO-6-2 

O format descriptor, 13-4 

Object program, INTRO-3-1 



Object program, 

location in, B-5 
Octal constant, 3-4 
ODD with PARITY, 12-9 
OPEN, INTRO- 5- 3 
OPEN statement, 12-1 
OPEN statement summary, 12-10 
Operator, 

arithmetic, 4-1 

hierarchy, 4-9 

logical, 4-5 
Operator strength, C-5 
Optimization, 

global, C-4 

program, C-9 
OPTIMIZE switch, B-2 
.OR., 4-5 

Order of statements, 2-7 
OTS, B-18 
Output, 

suppressing printed, 
INTRO-6-2 
Overflow, C-3 
Overlay facility, 

LINK-10, C-20 



P, INTRO- 4-4 

P (preserve file) , INTRO-7-1 
PARAMETER statement, 6-9 
PARITY in file control 

statement, 12-9 
PASSWORD, INTRO-1-2 
PATH with DIRECTORY, 12-7 
PAUSE statement, 9-11 
PDUMP subroutine, 15-22 
PLOT subroutine, 15-22 
PLOTS subroutine, 15-22 
PPN, INTRO-7-3 

Precision for real constant, 3-2 
PRINT, INTRO-4-4 
PRINT statement, 10-19 
PRINT with DISPOSE, 12-5 
Printed output, 

suppressing, INTRO-6-2 

printing lines of source, 
INTRO-4-4 
Program listing, B-5 
PROGRAM statement, 5-1 
Program, 

changing, INTRO-4-1 

entering, INTRO-2-1 

running, INTRO-3-1 

storing, INTRO-2-2 
Programs , 

non-FORTRAN-10, C-9 

optimizing, C-9 

writing, C-l 
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Propagation, 

constant, C-7 
PROTECTION in file control 

statement, 12-6 
PUNCH statement, 10-2 
PUNCH with DISPOSE, 12-5 



QUIT, INTRO- 4- 5 



R, INTRO-4-3 

R format descriptor, 13-12 

.RSOS, INTRO-2-1 

RAN function, 15-12 

RANDIN with ACCESS, 12-3 

Random access data transfer, 

10-1 
Random access record 

specification, 10-7 
Random access transfer, 
formatted READ, 10-13 
formatted WRITE, 10-17 
unformatted READ, 10-13 
unformatted WRITE, 10-17 
RANDOM with ACCESS, 12-3 
Range of double-precision 

numbers, C-l 
READ, INTRO- 5-1 
READ statement, 10-11 
READ statement summary, 

10-14 
READ transfer, 

random access, 10-13 
sequential, 10-11, 10-12, 

10-13 
Real constant, 3-2 
Real format, 13-4 
REAL statement, 6-3 
Realtime messages, G-7 
Realtime software, G-l 
Record formatting (T and X) , 

13-15 
RECORD SIZE in file control 

statement, 12-8 
Record specification, 
random access, 10-7 
Reentrant program, B-18 
Register allocation, C-7 
. REL extension, INTRO-7-1 
Relational expression, 4-7 
RELEAS subroutine, 15-2 3 
Remarks field, 2-4 
REMOVL in LINK, C-2 
RENAME, INTRO- 6- 2 
RENAME with DISPOSE, 12-5 
Renaming a file, INTRO-6-2 



Repeat for format 

descriptor, 13-3 
REPLACE, INTRO-4-3 
Replacement, 

DO-loop, C-8 
Replacing a line, INTRO-4-3 
Reporting, 

error, b-17 
REREAD statement, 10-14 
RESET in FOROTS , C-10 
Return key, 

carriage, INTRO-1-2 
RETURN statement, 15-8, 15-14 
REWIND statement, 14-1 
RUBOUT key, INTRO-2-3 
Running a program, INTRO-3-1 
RUNOVL in LINK, C-20 



S (save file) , INTRO-7-1 
SAVE with DISPOSE, 12-5 
SAVRAN subroutine, 15-23 
Scale factor in FORMAT 

statement, 13-7 
SCALE subroutine, 15-23 
SEG, B-18 

SEQIN with ACCESS, 12-3 
SEQINOUT with ACCESS, 12-3 
SEQOUT with ACCESS, 12-3 
Sequence number, 

line, B-5 
Sequential data transfer, 

10-1 
Sequential transfer, 

READ, 10-11, 10-12, 10-13 

WRITE, 10-16, 10-17 
SET RECORD statement, 14-3 
SETABL subroutine, 15-23 
SETRAN subroutine, 15-23 
SFD, 12-6 

Sharable program, B-18 
.SHR extension, B-18 
SIN function, 15-10 
SIND function, 15-11 
SINH function, 15-11 
SKIP FILE statement, 14-3 
SLITE subroutine, 15-23 
SLITET subroutine, 15-23 
Software requirements, 

FOROTS, D-l 
SORT subroutine, 15-24 
SOS, INTRO-2-1 
SOS examples, INTRO-8-1 
Source file, INTRO-2-1 
Source program, INTRO-2-1 
Specification statement, 

6-1 
SQRT function, 15-10 
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SSAVE switch, B-18 
SSWTCH subroutine, 15-23 
Statement, 

ACCEPT, 10-18 

Arithmetic assignment, 
8-1 

arithmetic IF, 9-3 

ASSIGN, 8-4 

assigned GOTO, 9-2 

BACKFILE, 14-3 

BACKSPACE, 14-2 

BLOCK DATA, 16-1 

CALL, 15-13 

CLOSE, 12-1 

COMMON, 6-5 

COMPLEX, 6-3 

computed GOTO, 9-2 

CONTINUE, 9-10 

control, 9-1 

DATA, 7-1 

DECODE, 10-22 

device control, 14-1 

DIMENSION, 6-1 

DO, 9-5 

DOUBLE PRECISION, 6-3 

ENCODE, 10-22 

END, 5-2, 15-7 

END FILE, 14-2 

ENTRY, 15-17 

EQUIVALENCE, 6-7 

executable, 1-1 

EXTERNAL, 6-8 

file control, 12-1 

FIND, 10-21 

FORMAT, 13-1 

FUNCTION, 15-7 

GOTO, 9-1 

IF, 9-3 

IMPLICIT, 6-5 

INCLUDE, 5-1 

input/output, 10-1 

INTEGER, 6-3 

label assignment, 8-4 

list-directed, 

input/output, 10-8 

LOGICAL, 6-3 

logical assignment, 8-4 

logical IF, 9-4 

mixed-mode assignment, 
8-1 

NAMELIST, 11-1 

nonexecutable, 1-1 

OPEN, 12-1 

PARAMETER, 6-9 

PAUSE, 9 -11 

PRINT, 10-19 

PROGRAM, 5-1 

PUNCH, 10-2 

READ, 10-11 



Statement (Cont.), 

REAL , 6-3 

REREAD, 10-14 

RETURN, 15-7, 15-14 

REWIND, 14-1 

SET RECORD, 14-3 

SKIP FILE, 14-3 

STOP, 9-10 

SUBROUTINE, 15-9 

TYPE, 10-21 

type specification, 6-3 

unconditional GOTO, 9-1 

UNLOAD, 14-2 

WRITE, 10-16 
Statement category, 1-1 
Statement descriptor, 

FORMAT, 13-2 
Statement field, 2-3 
Statement format, 

input/output, 10-2 
Statement function 

subprogram, 15-3 
Statement label constant, 

3-6 
Statement numbers, 2-3 
Statement summary, 

CLOSE, 12-10 

device control, 14-3 

input/output, 10-24 

OPEN, 12-10 

READ, 10-14 

WRITE, 10-18 
Statements , 

order of, 2-7 
STOP statement, 9-10 
Storage of array elements, 

3-10 
Storing a program, INTRO-2-2 
Sub-file directory, 12-6 
Subprogram, 

basic external function, 
15-8 

block data, 16-1 

external function, 15-7 

intrinsic function, 15-3 

multiple entries to, 15-17 

multiple returns from, 15-14 

statement function, 15-3 

subroutine, 15-9 
Subprogram argument, 15-1 
Subprogram dummy argument, 

15-1 
Subprograms, 15-1 
Subroutine, 

DATE, 15-19 

ERRSET, 15-21 

ERRSNS, 15-21 

EXIT, 15-21 

FORTRAN supplied, 15-14 
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Subroutine (Cont.), 

ILL, 15-21 

LEGAL, 15-21 

LINE, 15-21 

programming consideration, 
C-2 
Subroutine call, 15-13 
SUBROUTINE statement, 15-9 
Subroutine structure, 15-13 
Subroutine subprogram, 15-9 
Subscript, 

array, 3-8 
Subtraction ( . 4-1 
Suppressing printed output, 

' INTRO-6-2 
Switches, 

compiler, B-l 
SYMBOL subroutine, 15-24 
Symbolic name, 3-6 
SYNTAX switch, B-2 
SYS, INTRO-7-4 



T (trace after PAUSE) , 9-12 

T format descriptor, 13-15 

TAB. INTRO-4-6 

TANH function, 15-11 

TIM2G0 function, 15-12 

TIME subroutine, 15-24 

Trace (T) option after PAUSE, 

9-12 
TRACE function, 9-13 
TRACE subroutine, 9-13 
TRACE with DEBUG, B-3 
Transfer operations, 

data, 10-1 
.TRUE. , 3-5 

TYPE, INTRO-5-2, INTRO-6-1 
Type , 

FUNCTION, 15-7 
Type specification statement, 

6-3 
TYPE statement, 10-21 



Unconditional GOTO statement, 

9-1 
Uninitialized variable, C-8 
UNIT in file control 

statement, 12-2 
Unit number, 

logical, 10-3 
Unformatted transfer, 
random access, 

READ, 10-13 

WRITE, 10-17 
sequential binary, 

READ, 10-12 

WRITE, 10-16 
UNLOAD statement, 14-2 
User file directory, 12-6 



Variable, 3-7 

compiler generated, B-6 
uninitialized, C-8 

VERSION in file control 
statement, 12-8 



Warning message, B-17 
WHERE subroutine, 15-25 
WRITE, INTRO-5-] 
WRITE statement, 10-16 
WRITE statement summary, 

10-18 
WRITE transfer, 

random access, 10-16, 10-17 
sequential, 10-16, 10-17 
Writing programs, C-l 



X (option after PAUSE) , 9-11 
X format descriptor, 13-15 
.XOR., 4-5 



+U, INTRO-3-4 
UFD, 12-6 



+Z, 2-1 
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